谢谢老师的指点
For Each r As Row In CurrentTable.Rows
'Dim r As Row = CurrentTable.Current
Dim ggms() As String = r("招标公告").split(vbCrlf)
Dim ss As String
Dim sbs() As String = {"一","二","三","四","五","六","七","八","九"}
For Each ggm As String In ggms
If ggm.Contains("招标文件的获取") AndAlso ggm.Length > 8 AndAlso ggm.Length < 20 Then
ss = ggm.Trim()
End If
Next
'msgbox(ss)
If ss.IndexOf("招标文件的获取") > -1 Then
For i As Integer = 0 To ggms.count -1
ggms(i) = ggms(i).Trim()
If ggms(i).Length > 3 AndAlso ggms(i).Length < 20
If Char.IsDigit(ss.Chars(0))
If Char.IsDigit(ggms(i).Chars(0)) AndAlso Char.IsDigit(ggms(i).Chars(2)) = False Then
'Output.Show(ggms(i))
r("备注") &= ggms(i) & "/"
End If
Else
For Each sb As String In sbs
If ggms(i).StartsWith(sb)
'Output.Show(ggms(i))
r("备注") &= ggms(i) & "/"
End If
Next
End If
End If
Next
End If
Next