连续相同字符串筛选配对问题，如何做成下图中红线精确配对？？？第二列的数据是标准的
此主题相关图片如下：169.jpg
下面代码出现多个值？
Dim str As String = "投标单位|投标报价|项目负责人|质量标准|工期|投标保证金|信用分|资信分值|技术分值|开标备注|评标备注|标书备注|联合体成员|序号"
Dim stt As String = "投标单位名称|投标总价(元)|项目经理|质量标准|工期(天)| 投标保证金缴纳情况|信用分值|资信分值|技术分值|开标备注|评标备注|标书备注|联合体成员|序号"
For Each st As String In stt.Split("|")
If st > "" Then
For i As Integer = 0 To st.Length - 2
Dim s As String = st.Substring(i, 2) '连续二个字符相同
For Each nm As String In str.Split("|")
If nm.Contains(s) Then
'nr("接收表列名") = nm '自动选出列名
Output.Show(nm)
End If
Next
Next
End If
Next
此主题相关图片如下：1696432.jpg
[此贴子已经被作者于2023/10/4 23:33:55编辑过]
加好友 
发短信
Post By：2023/10/4 23:11:00 [只看该作者]
