从文本框中提取字符串

COBY CHEN　发表于：2017-12-04 16:11:23 　

窗体上有一文本框（LabInfo）：

内容如下：

order No.: SO-I-20170XXXX
Product :Fish Oil Soft Capsule
Batch No.: BA711XXX
Mfg. Date: Nov 12 2017

Carton No.: 001
Packaging: 2000caps/carton
Gross Wt: 4.34 kg
Net Wt: 3.62 kg
Manu. order No.: SOD170916654
Made In China

现需要的是自动把对应内容提取到表（Tbl_LabInfo）中对应字段。

请问用VBA代码要如何提取对应字段值？

附件:

点击下载此附件

Top

chinasa 发表于：2017-12-05 14:43:23

wb = Me.Text5
wz1 = InStr(wb, "Order No.:")
wz2 = InStr(wz1 + 1, wb, Chr(13) & Chr(10))
od_no = Mid(wb, wz1 + 10, wz2 - wz1 - 10)

wz1 = InStr(wb, "Product :")
wz2 = InStr(wz1 + 1, wb, Chr(13) & Chr(10))
pd_no = Mid(wb, wz1 + 9, wz2 - wz1 - 9)

MsgBox od_no & " " & pd_no

其他字段道理相同

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

从文本框中提取字符串