想将相同合同号对应的fphm用vbCrLf拼接提取出来，代码该怎么写呢
Dim hth As String
Dim hths() As String = {"QAXSZ230811B/23088", "QAXSZ230811A/23079", "QAXSZ230811A/23079", "QAXSZ230328A/23039", "QAXSZ230328A/23039"}
Dim fphm As String
Dim fphms() As String = {"666", "36357132", "36357333", "36356847", "36356864"}
Array.Sort(HTHs, fphms)
For j As Integer = 0 To HTHs.Length - 1
Dim count As Integer = 0
For k As Integer = j + 1 To HTHs.Length - 1
If(hths(j) = hths(k)) Then
count = count + 1
Else
fphm = fphm & "_" & fphms(j)
End If
Next
If(count = 1) Then
Output.Show("重复hth：" & HTHs(j))
count = 0 '重置
End If
Next
加好友 
发短信
Post By：2023/9/14 10:47:00 [显示全部帖子]
