Vb6数组筛选Text1里面的数组为4码数组由字母和数字组合以空格符号分开例如:12341ABC23DE48FG2FHJACDE…………数组很多一般在几千到6万组之间Text2里面的数组为6码数组以段落符号分开23456712ABC

Question

Vb6数组筛选
Text1里面的数组为4码数组 由字母和数字组合以空格符号分开
例如:1234 1ABC 23DE48FG 2FHJ ACDE …………
数组很多一般在几千到6万组之间
Text2里面的数组为6码数组以段落符号分开
234567
12ABCF
456CYZ
ABCDEF
…………
数组也很多
求按钮1和按钮2生成Text3
求按钮1删除text2里没有text1里的数组
比如Text2里只有
12ABCF——存在1ABC
ABCDEF——存在ACDE
那么Text3
里就是
12ABCF
ABCDEF
…………
求按钮2保留text2里没有text1里的数组
只有
234567
456CYZ
不存在text1里的数组
那么Text3
里就是
234567
456CYZ
…………
拜谢!

Answer 1

定义三个数组存放你所有的数组,如strMy4(65532),strMy6(65532),strMyOnly(65532).
使用InStr函数
返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置.
语法
InStr([start,]string1,string2[,compare])
InStr 函数的语法具有下面的参数：
部分 说明
start 可选参数.为数值表达式,设置每次搜索的起点.如果省略,将从第一个字符的位置开始.如果 start 包含 Null,将发生错误.如果指定了 compare 参数,则一定要有 start 参数.
string1 必要参数.接受搜索的字符串表达式.
string2 必要参数.被搜索的字符串表达式.
Compare 可选参数.指定字符串比较.如果 compare 是 Null,将发生错误.如果省略 compare,Option Compare 的设置将决定比较的类型.
当返回非0时,就是找到了,把它放到位置1,找不到就放到另一位置.可能要用到二层循环.代码还是你自己写吧.