如何在表单中选择保存多个不同数据 - 编程论坛

#2

ming2062007-10-26 23:07

如果你是换行的,可以通过获得换行字符判断哪行是什么东西.
如果你前面一定要有 1\2\3\4......则可以通过查找,遇到1又怎么样,遇到2又怎么样,......
总之,要有个固定的格式,程序通过这个格式写一个规则程序来读,才能分割,分别存储到各个字段中.

#3

永夜的极光2007-10-26 23:11

为什么不用四个单行的输入框呢？我觉得这样比较简单。

#4

ming2062007-10-26 23:17

他的意思是只有一个输入框而已.这样做不知道有什么实际意义,但是我想如果用户一定按你的某种格式进行输入,我想你想要这样的功能也是很简单的,但是他不按你的方式输入就麻烦大了.

#5

yms1232007-10-26 23:22

个人觉得一个文本域输入多值不太好。

#6

swalia2007-10-27 09:48

因为客户输入的是固定格式的如:
1.张三 N3K21
2. FM9308 T SU28OCT CANSHA HK1 0810 1010 E
3.CAN/T SZX/T 020-38771771/SZX LAISIDA AVIATION SERVICE LTD. IN CAN/HONG
XIANG NI ABCDEFG
4.TL/1800/27OCT/CAN695
5.FC/A/CAN FM SHA 900.00Y70 CNY900.00END
6.SSR FOID FM HK1 NI1111111111/P1
7.SSR OTHS 1E TKTL ADV TKT NBR TO FM BY 27OCT07/1048/CAN TIM/OR NO ALL SG/BCS
FM9308 /T/28OCT/CANSHA
8.RMK CA/KRT7D
9.RMK AUTOMATIC FARE QUOTE
10.FN/A/FCNY900.00/SCNY900.00/C3.00/XCNY130.00/TCNY50.00CN/TCNY80.00YQ/
ACNY1030.00
11.FP/CASH,CNY
12.CAN695
这个格式是不会改变的

#7

swalia2007-10-27 09:52

我需要的字段是:
张三
N3K21
FM9308
T
CANSHA
0810
1010
900.00
Y70
1111111111
1030
应该怎么样选择出来分开呢??
能不能帮我提供一个代码谢谢

#8

yms1232007-10-27 14:47

个人觉得可以把楼主的字符串打散为数组来分析，比如得到张三
Function getName(tBody)
Dim tStr,tAry
tStr=tBody
tAry=Split(tStr,Chr(13));
tStr=tAry(0)
tAry=Split(tStr," ");
tStr=tAry(0)
tAry=Split(tStr,".")
getName=tAry(1)
End Function
通过不断的打散为数组来得到值。