Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于读取TXT文本文件问题


  共有3097人关注过本帖树形打印复制链接

主题：关于读取TXT文本文件问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2112 积分：13554 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于读取TXT文本文件问题  发帖心情 Post By：2021/2/5 17:30:00 [只看该作者]

文本文件是一个关于身份证信息内容，怎样将其内容分别赋值到窗体文本框中呢？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/5 17:33:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2112 积分：13554 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2021/2/5 18:00:00 [只看该作者]

还得购买读卡器设备吗？我用的是其他OCR已经说不好了生成文本文件了怎样将文本文件的内容写到指定列中呢？
[此贴子已经被作者于2021/2/5 18:03:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（裴保民）还得购买读卡器设备吗？我用的是其他...  发帖心情 Post By：2021/2/5 19:30:00 [只看该作者]

把文本内容按照你想要的格式进行字符串处理拆分 然后对应表中的列新增赋值即可

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2112 积分：13554 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2021/2/6 1:15:00 [只看该作者]

文本文件中的格式如下：

图片点击可在新窗口打开查看此主题相关图片如下：screenshot_20210206_010734.png
图片点击可在新窗口打开查看
怎样将文本中的的红色文字分别赋值给窗体各个文本控件呢？
签发日期:20060331
签发机关:北京市公安局裕华分局
失效日期:20260331

如下图

图片点击可在新窗口打开查看此主题相关图片如下：screenshot_20210206_011449.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2021/2/6 1:19:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（裴保民）文本文件中的格式如下：[upload=png,...  发帖心情 Post By：2021/2/6 18:31:00 [只看该作者]

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) '读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
Dim r As Row = Tables("表A").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

要么控件绑定表字段  要么直接控件代码定义
Dim tx1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tx2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim tx3 As WinForm.TextBox = e.Form.Controls("TextBox3")
tx1.Value=pars(7).SubString(0,10).Replace(".","-")
tx2.Value=pars(6)
tx3.Value=pars(7).SubString(11).Replace(",","-")
[此贴子已经被作者于2021/2/6 18:31:34编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询