如何用程序按规律提取word中的信息 - 编程论坛

#2

w3609894262016-12-12 19:26

没有英雄吗？？

#3

风吹过b2016-12-12 19:30

看了一下，提供一个思路你测试一下。

你提供的文件是 RTF 格式，使用超文本控件打开，然后读 TXT 内容，就会只保留文本。
然后按这个文本的样式去读文件。

下面这个文件是用WORD普通视图显示的内容，文本与这个应该差不多。

PURCHASE ORDER
采购订单

供应商：
订单号
PURCHASE ORDER PO201612-14398
PR No.i16-12365
申请单号
2016/12/9
订货日期
Delivery Date: 10.12.2016
到货日期
09.12.2016 18:01
打印日期
Fax:
Tel: 18721916795
Information:
申请人
Requested by:
kliu8
Department: Western Kitchen 西厨房
部门
VAT Value
VAT
Amount
Unit Price
Unit
Quantity
Article
税额
税
金额
单价
单位
数量
项目
90.48
13%
12.00
Kilogram
Lamb,Mongolian Rack,Frozen 蒙古羊排
1.2-1.8kg/Pcs kg
696.00
58.00

74.78
13%
10.00
Kilogram
Beef Loose Slice 福成肥牛片 kg
575.20
57.52

108.60
13%
8.00
Kilogram
Beef tenderloin 国产青岛牛柳（冻） Kg
835.36
104.42

273.86
2,106.56
合计 Order Total:

2,380.42

总金额 Total Amount:

Page1

#4

w3609894262016-12-12 19:59

回复 3楼风吹过b

这个我也发现了，另存为txt纯文本格式，在手动复制到excel能够形成1行1数据

但问题来了，这样过于麻烦，有什么软件可以直接把word转换成excel 一格一数据，那什么问题都解决了

关键是没找到这样的软件

#5

风吹过b2016-12-13 08:32

按这个文本文件没找到规律吗？
按行来查规律，
如：查找订单号，找到后，下面一行就是供应商，再下面一行就是订单号，这样的读啊。
再如查找项目，下面连续 8行，就是 8个单元格一条记录，然后空一行，再8行又是下一条记录
读到连续空二行，说明记录读完了。
然后再接着读合计，与自己读出来的数据进行核对。

#6

w3609894262016-12-13 11:48

回复 5楼风吹过b

下面的数据没有明确标识是什么品相，按照上面中文的品相来排的话就错了

#7

xiangyue05102016-12-13 19:35

你这个可以利用表单实现，或者利用word的域来实现
用VB，就像你自己说的定位，这个出货单（不管什么单）只要有特定的规律，就可以。如果你说没有，那你自己都找不到，别人怎么可能帮你找到呢？

#8

w3609894262016-12-13 20:03

回复 7楼 xiangyue0510

什么表单？请指导，版主的思路是怎么弄