| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1083 人关注过本帖
标题:本人新手,求教各位大神 text1 输入数据保存为TXT以后的检测问题!
只看楼主 加入收藏
you157827715
Rank: 3Rank: 3
来 自:湖南
等 级:论坛游侠
威 望:1
帖 子:43
专家分:121
注 册:2021-4-24
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:5 
本人新手,求教各位大神 text1 输入数据保存为TXT以后的检测问题!
  以下是我的程序和数据, 我想在 TEXT1 每次输入数据时,每次检测输入的数据在上次输入保存的txt文件里面有没有重复的数据,如果有重复,程序提示!
  如下:
只检测txt 文件下的 每一行的前12个数据 如: "210004022221"
   

求高手解答!





图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: text1 检测 TXT 输入 数据 
2021-08-03 16:44
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4937
专家分:30047
注 册:2008-10-15
收藏
得分:5 
打开这个文件,全部读到内存,按行分解后。
每次输入后,与每一行的前12个字符比较,相同,则提示。


授人于鱼,不如授人于渔
早已停用QQ了
2021-08-03 19:11
apull
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:三体星系
等 级:版主
威 望:216
帖 子:1474
专家分:9035
注 册:2010-3-16
收藏
得分:5 
读取一行字符串,用split空格分隔成一个6元素数组,在与数组的第1,2个元素比较
2021-08-03 19:28
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
加个二维码更完美了
2021-08-04 07:29
you157827715
Rank: 3Rank: 3
来 自:湖南
等 级:论坛游侠
威 望:1
帖 子:43
专家分:121
注 册:2021-4-24
收藏
得分:0 
回复 2楼 风吹过b
谢谢给的思路,可是我还是不是很理解,麻烦能不能给段代码参考下,我新手刚学,不是很懂!麻烦了!文件读出来我会!就是检测这块
2021-08-04 08:08
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4937
专家分:30047
注 册:2008-10-15
收藏
得分:10 
检测,分二种情况
一、整个文件直接读在一个字符串里,那么我们使用查找字符串的办法。
if instr(1,text1.text,StrFileS) >0 then  '表示找到
这种方法,要求每行的其他部位不会出现这种类型的字符,如果会出现,那么就要再加字符判断
如 if instr(1,vbcrlf & text1.text,StrFileS)>0 then           '加上换行符后找到,说明字符出现某行的开始部分,也就是第1节
这种方法会漏掉第一行可能会存在的问题,所以要单独再比较一下第一行,解决的办法就是 strfiles 前面再附加一个 vbcrlf ,变成
if instr(1,vbcrlf & text1.text,vbcrlf & StrFileS)>0 then

二、已分解成每一行了
那先预处理一下,只保留前12个字符好了。
for i=0 to ubound(SFSF)
   if len(sfsf(i))>12 then  sfsf(i)=left(sfsf(i),12)
next i
然后在比较时,通过循环比较
fsYN = flash
for i=0 to ubound(sfsf)
  if fsfs(i)=text1.text then
    fsyn=true
    exit for
  end if
next i
if fsyn then  '找到重复

else      '未找到

end if






授人于鱼,不如授人于渔
早已停用QQ了
2021-08-04 22:36
快速回复:本人新手,求教各位大神 text1 输入数据保存为TXT以后的检测问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019380 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved