UC知道vb匹配功能（强人进来切磋）
来源：百度知道 编辑：UC知道 时间：2024/05/20 05:59:37
程序说明 2个command2个text
首先是对文件进行操作 文件的格式如下(中间有空格)
3251 32511 32513 的 794 讨从人编应目东作对数
1234 12343 123435 构 785 性与组根推后可建
1321 13212 132121 在 741 此方世中计面问上这自
2511 25111 251112 是 716 认接模新通面可非从他
1325 13251 132511 有 496 多争了含特自不一两必
52 52 52 了 491 更长编的进接关它一这
3123 31234 312342 和 446 以妈更浅示总鸟在直改
1 1 1 一 429 类大台特系无对条领下
34 34 34 人 361 说难在的愉都享他以注
13 33 33 在 333 说难在的愉都享他
程序需求 想要单击command1时text1文本显示一 单击command2时text1文本显示 ”丨”
我的做法是 Private Sub Command1_Click()
Command1.Tag = "一"
text1.Text = text1.Text & Command1.Tag
同时我把command1.Tag赋给变量a(以便以后的匹配)
Private Sub Command2_Click()
Command2.Tag = "丨"
text1.Text = text1.Text & Command2.Tag
End Sub
以上代码包含的功能是令 text1文本中在单机command1和command2是显示的顺是 ”一””丨”
问题来了 我首先先单击command1,然后text1显示”一”然后要的是 text2文本（仔细看是2不是1）显示我前10位中首个字符包含1的(即1234第一个字符有1) then text2.text =”构”＆”在”&”有”&”一”& ”在”用数组来做貌似比较费劲如有高人指点 望详细指点迷经(因为文件操作是从第1行进行
首先是对文件进行操作 文件的格式如下(中间有空格)
3251 32511 32513 的 794 讨从人编应目东作对数
1234 12343 123435 构 785 性与组根推后可建
1321 13212 132121 在 741 此方世中计面问上这自
2511 25111 251112 是 716 认接模新通面可非从他
1325 13251 132511 有 496 多争了含特自不一两必
52 52 52 了 491 更长编的进接关它一这
3123 31234 312342 和 446 以妈更浅示总鸟在直改
1 1 1 一 429 类大台特系无对条领下
34 34 34 人 361 说难在的愉都享他以注
13 33 33 在 333 说难在的愉都享他
程序需求 想要单击command1时text1文本显示一 单击command2时text1文本显示 ”丨”
我的做法是 Private Sub Command1_Click()
Command1.Tag = "一"
text1.Text = text1.Text & Command1.Tag
同时我把command1.Tag赋给变量a(以便以后的匹配)
Private Sub Command2_Click()
Command2.Tag = "丨"
text1.Text = text1.Text & Command2.Tag
End Sub
以上代码包含的功能是令 text1文本中在单机command1和command2是显示的顺是 ”一””丨”
问题来了 我首先先单击command1,然后text1显示”一”然后要的是 text2文本（仔细看是2不是1）显示我前10位中首个字符包含1的(即1234第一个字符有1) then text2.text =”构”＆”在”&”有”&”一”& ”在”用数组来做貌似比较费劲如有高人指点 望详细指点迷经(因为文件操作是从第1行进行
用line input每次读一行，然后判断首字是否为1，如果为1则用instr查找3次空格，再mid取instr的结果+1的位置，就是 构 在 什么的位置，如果不为1则跳过。以此类推。把取出来的结果累加到text2即可
多少段都一样，整个放在一个do while not eof(1)循环里就是了，读到文件末尾。