主题：HTML中ID和标签如何设成变量？

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
       
        wb.AddPageTitle("","ph1","Progress")
        For i As Integer = 1 To 5
            wb.AddProgress("","pgb" & i ,True,50)
        Next
        Dim str = wb.Build
        For i As Integer = 1 To 5
            str = str.replace("<div class='weui_progress' name='pgb" & i & "' id='pgb" & i & "'>" & chr(13) & chr(10) & " <div class='weui_progress_bar'><div class='weui_progress_inner_bar' style='width:50%;'>","<div class='weui_progress' name='pgb" & i & "' id='pgb" & i & "'>" & vbcrlf & " <div style='height:30px' class='weui_progress_bar'><div class='weui_progress_inner_bar' style='width:50%;'><label>合同" & i & ":</label>")
        Next

        e.WriteString(str)
End Select

把红色代码改一下

str = str.replace("<div class='weui_progress' name='pgb" & i & "' id='pgb" & i & "'>" & chr(13) & chr(10) & " <div class='weui_progress_bar'><div class='weui_progress_inner_bar' style='width:" & drs(i-1)("progress") & "%;'>","<div class='weui_progress' name='pgb" & i & "' id='pgb" & i & "'>" & vbcrlf & " <div style='height:30px' class='weui_progress_bar'><div class='weui_progress_inner_bar' style='width:" & drs(i-1)("progress") & "%;'><label>" & drs(i-1)("合同简称") & "</label>")