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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]字符数组处理

共有3234人关注过本帖树形打印复制链接主题：[求助]字符数组处理

kuroneko

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：703 威望：0 精华：0 注册：2023/2/22 15:09:00

[求助]字符数组处理 发帖心情

Post By：2023/9/14 10:47:00 [只看该作者]

想将相同合同号对应的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

If(count = 1) Then

Output.Show("重复hth：" & HTHs(j))

count = 0 '重置

End If

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2023/9/14 10:50:00 [只看该作者]

想得到啥结果？

kuroneko

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：703 威望：0 精华：0 注册：2023/2/22 15:09:00

Post By：2023/9/14 10:54:00 [只看该作者]

想得到这种效果。数组hths中元素按fphms中元素对应排序，hths中元素重复时，将对应fphms中的元素进行拼接

QAXSZ230811B/23088：666

QAXSZ230811A/23079：36357132_36357333

QAXSZ230328A/23039: 36356847_36356864

[此贴子已经被作者于2023/9/14 10:57:16编辑过]

y2287958

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2023/9/14 11:18:00 [只看该作者]

Dim hths() As String = {"QAXSZ230811B/23088", "QAXSZ230811A/23079", "QAXSZ230811A/23079", "QAXSZ230328A/23039", "QAXSZ230328A/23039"}

Dim fphms() As String = {"666", "36357132", "36357333", "36356847", "36356864"}

Dim dic As New Dictionary(Of String, list(Of String))

For i As Integer = 0 To hths.count - 1

Dim lst As New List(Of String)

If dic.ContainsKey(hths(i)) Then

lst = dic(hths(i))

lst.Add (fphms(i))

dic(hths(i)) = lst

Else

lst.Add(fphms(i))

dic.Add(hths(i), lst)

End If

For Each k As String In dic.Keys

Output.Show (k & ":" & String.Join ("_" , dic(K)))

kuroneko

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：703 威望：0 精华：0 注册：2023/2/22 15:09:00

Post By：2023/9/14 12:13:00 [只看该作者]

谢谢爸

下一主题 >> << 上一主题

主题：[求助]字符数组处理