- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于读取TXT文本文件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160550)
-- 发布时间：2021/2/5 17:30:00
-- 关于读取TXT文本文件问题
文本文件是一个关于身份证信息内容，怎样将其内容分别赋值到窗体文本框中呢？
-- 发布时间：2021/2/5 17:33:00
--
参考：http://www.foxtable.com/webhelp/topics/2417.htm
-- 发布时间：2021/2/5 18:00:00
--
还得购买读卡器设备吗？我用的是其他OCR已经说不好了生成文本文件了怎样将文本文件的内容写到指定列中呢？
[此贴子已经被作者于2021/2/5 18:03:19编辑过]
-- 发布时间：2021/2/5 19:30:00
-- 回复：（裴保民）还得购买读卡器设备吗？我用的是其他...
把文本内容按照你想要的格式进行字符串处理拆分 然后对应表中的列新增赋值即可
-- 发布时间：2021/2/6 1:15:00
--
文本文件中的格式如下：
此主题相关图片如下：screenshot_20210206_010734.png
怎样将文本中的的红色文字分别赋值给窗体各个文本控件呢？
签发日期:20060331
此主题相关图片如下：screenshot_20210206_011449.png
签发机关:北京市公安局裕华分局
失效日期:20260331
如下图
此主题相关图片如下：screenshot_20210206_011449.png[此贴子已经被作者于2021/2/6 1:19:30编辑过]
-- 发布时间：2021/2/6 18:31:00
-- 回复：（裴保民）文本文件中的格式如下：[upload=png,...
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编辑过]