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

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

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

kuroneko

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

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

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

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

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

QAXSZ230811B/23088：666

QAXSZ230811A/23079：36357132_36357333

QAXSZ230328A/23039: 36356847_36356864

有点蓝

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

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

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

利用字典
dim dict as new dictionary(of string,string)
for i as integer = 0 to hths.length - 1

if dict.containskey(hths(i)) then

dict(hths(i)) = dict(hths(i)) & "_" & fphms(i)

else

dict.add(hths(i), fphms(i))

end if

for each key as string in doct.keys

msgbox(key & ":" & dict(ke))

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