专家坐堂-[求助]字符串对比的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现在需要的是在这种情况下，只输出【删除】【硬盘1:DDD】，因为硬盘2只是序号发生了变化，内容并没有改变。可能是需要忽略需要的影响吧。。

Dim oldValues As String() = args(0).Split("|")

Dim newValues As String() = args(1).Split("|")

Dim msg As New StringBuilder()

Dim oldDict As New Dictionary(Of String, String)

Dim newDict As New Dictionary(Of String, String)

For Each s As String In oldValues

Dim parts As String() = s.Split(":")

oldDict(parts(0)) = String.Join(":", parts, 1, parts.Length - 1)

For Each s As String In newValues

Dim parts As String() = s.Split(":")

newDict(parts(0)) = String.Join(":", parts, 1, parts.Length - 1)

\' Check for additions and modifications

For Each key As String In newDict.Keys

If oldDict.ContainsValue(newDict(key)) Then

Continue For

End If

If oldDict.ContainsKey(key) AndAlso Not oldDict(key).Equals(newDict(key)) AndAlso Not newDict(key).Contains("不支持") Then

msg.AppendFormat("【修改】【{0}:{1}】修改为【{0}:{2}】{3}", key, oldDict(key), newDict(key), vbCrLf)

Else

msg.AppendFormat("【新增】【{0}:{1}】{2}", key, newDict(key), vbCrLf)

End If

\' Check for deletions

For Each key As String In oldDict.Keys

If Not newDict.ContainsValue(oldDict(key)) AndAlso Not newDict.ContainsKey(key) Then

msg.AppendFormat("【删除】【{0}:{1}】{2}", key, oldDict(key), vbCrLf)

End If