| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎样在一段文档中找到固定内容生成表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25028) |
| -- 作者：zhaohj611718 -- 发布时间：2012/10/29 18:52:00 -- 怎样在一段文档中找到固定内容生成表 怎样在一段文档中找到指定的内容生成表，例如：在 **ELECTRONIC TICKET PNR** 1.蔡可付 JSR1FF 2. CZ3767 G WE31OCT ZUHKWE RR1 1530 1710 E 3.BJS/T ZUNHUA/0315-6611718/ZUNHUA AIR INTERNATIONAL TRAVEL AGENCY CO.,LTD/ /ZHAO HONG JUN ABCDEFG 4.T 5.SSR FOID CZ HK1 NI370403198103092210/P1 中找到名字 蔡可付 和身份证号370403198103092210 他们的位置都是固定的， 给我详细点的说明，我是初学的。 |
| -- 作者：y2287958 -- 发布时间：2012/10/29 19:33:00 -- 上个例子啥 |
| -- 作者：lin_hailun -- 发布时间：2012/10/29 21:11:00 -- 这个用正则表达式轻松解决，楼主，你说明一下，哪些单词或者字符是不会变的。这个需要确定。 [此贴子已经被作者于2012-10-29 21:11:44编辑过]
|
| -- 作者：zhaohj611718 -- 发布时间：2012/10/30 9:13:00 -- 我的文档是一段固定格式的文档旅客机票pnr记录，我想通过读记录达到生成客户信息的目的 |
| -- 作者：lin_hailun -- 发布时间：2012/10/30 11:55:00 -- 嗯嗯，可以取出你想要的，但你得告诉大家你这段文字，哪些字母是固定不变的。 |
| -- 作者：Fotable -- 发布时间：2012/10/30 15:12:00 -- 以下是引用lin_hailun在2012-10-29 21:11:00的发言：
这个用正则表达式轻松解决，楼主，你说明一下，哪些单词或者字符是不会变的。这个需要确定。 [此贴子已经被作者于2012-10-29 21:11:44编辑过] 用正则表达 怎么写呢 |
| -- 作者：lin_hailun -- 发布时间：2012/10/30 15:22:00 -- 比如这段，到命令窗口执行，截取大写的数字。 Dim data As String = "福建阿里上看到附件sdkfj零壹贰叁肆伍陆柒捌玖/吨控件" Dim catchs As New System.Text.RegularExpressions.Regex("[\\u96f6\\u58f9\\u8d30\\u53c1\\u8086\\u4f0d\\u9646\\u67d2\\u634c\\u7396]+(/\\u5428){1}") Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data) If mc.Count <> 0 Then msgbox(mc(0).Value.SubString(0, mc(0).Value.IndexOf("/"))) End If |