想将一段文字转化成html文本格式,for语句的逻辑捋不出来了,各位老师帮我看看!
代码如下:
Dim v As String = "表#~第0行|项目|分数|等级|班排名|级部排名|区排名|第0行#~第1行|语文|98|A|7| | |第1行#~第2行|数学|105|A|5| | |第2行#~第3行|英语|84|B| | | |第3行#~第4行|三科|287|A|6|52|856|第4行#"
Dim htm As String
Dim bghtm As String
Dim bhhtm As String
For Each bgh As String In v.Split("~") '通过~符号将表格每一行分开
Dim cls() As String = bgh.split("|") '对表格每一行数据的每一列再通过"|"符号分开
If bgh.Contains("第0行") = True Then '如果是表头行
For n As Integer = 1 To cls.Length-2
bhhtm = bhhtm + "<th>" + cls(n) + "</th>"
Next
Else '如果是内容行
For n As Integer = 1 To cls.Length-2
bhhtm = bhhtm + "<td>" + cls(n) + "</td>"
Next
End If
bghtm ="<tr>" & bhhtm & "</tr>"
Next
htm ="<Table border = ""1""cellspacing = ""0""><Col width = ""100"">" & bghtm & "</Table>"
Output.Show(htm)