主题:以"|"间隔的数据如何导入VFP中
zgl_19751
[专家分:0] 发布于 2010-11-02 12:03:00
请教各路高手:
以"|"间隔的数据如何导入VFP中
如:
aaa|bbb|cc
aa|cc|bbb
回复列表 (共2个回复)
沙发
kosung [专家分:910] 发布于 2010-11-03 02:48:00
这是我在用的一段代码:
CREATE TABLE C:\SLTMP\Bback.dbf (bankid c(22),bname c(10),allmon n(10,2),randnum n(6),note c(10),backok l)
USE C:\SLTMP\Bback excl
mpath=sys(5)+sys(2003)
set default to d:\
abcc=GETFILE("txt","","",0,"请选择导入文件名")
SET DEFAULT TO &mpath.
lcFile = Filetostr(abcc)
lnLines = Alines(laLines, lcFile)
For lnfor1 = 1 To lnLines
lnWords = Alines(laWords, laLines[lnFor1])
m.Fld01 = Strextract(laWords, "|", "|", 1)
m.Fld02 = Strextract(laWords, "|", "|", 2)
m.Fld03 = VAL(ALLTRIM(Strextract(laWords, "|", "|", 3)))
m.Fld04 = VAL(ALLTRIM(Strextract(laWords, "|", "|", 6)))
m.Fld05 = Strextract(laWords, "|", "|", 7)
Insert Into bback VALUES (m.Fld01, m.Fld02, m.Fld03, m.Fld04, m.Fld05,.f.)
NEXT
导入文件形如:
41514|622439720002612088|黄永华|126.00|成功||666323|8月水|
41514|622439720003121428|方玉晃|3465.00|成功||256067|8月水|
41514|090401010100736329|张国强|882.00|成功||422762|8月水|
41514|090403010100509113|向新焕|464.10|成功||503463|8月水|
41514|090401010102333853|冯彩银|191.10|成功||694224|8月水|
41514|090402010102323675|冯杰彪|688.80|成功||464343|8月水|
41514|622439720003121337|熊俊|863.10|成功||429774|8月水|
41514|06832319000002482|张金钊|359.90|成功||392593|8月水|
41514|090403010102050401|毕毅明|92.40|成功||649591|8月水|
41514|090412010100881368|毕永碧|170.10|成功||454395|8月水|
41514|090412010101119468|毕伟凌|758.10|成功||507247|8月水|
41514|090412010102221180|张育辉|1120.10|成功||665001|8月水|
41514|090402010101528629|温庆辉|856.80|成功||446794|8月水|
41514|622439720000095096|兰明|1276.80|成功||662054|8月水|
41514|090402010101586281|洪新桥|3528.00|成功||490077|8月水|
41514|622439490116682670|周日英|999.60|成功||409148|8月水|
41514|090602010102583788|魏志忠|62.10|成功||260279|8月水|
41514|622439720002047780|罗杰君|415.80|成功||383015|8月水|
41514|622439490216281100|洪金良|25.20|成功||378801|8月水|
41514|622439720002565898|邹远银|84.00|成功||677208|8月水|
41514|090403010100713229|王树坚|446.00|成功||411802|8月水|
41514|03972815000000744|钟志峰|147.80|成功||413809|8月水|
41514|622439720002613763|吴桂钊|383.00|成功||414710|8月水|
41514|090401010102011925|张木新|475.40|成功||415058|8月水|
41514|622439690002139897|陈彩英|35.20|成功||698152|8月水|
41514|03952160000000834|袁建华|174.70|成功||371644|8月水|
41514|06832406000002911|陈佑田|278.00|成功||372401|8月水|
41514|090401010101787344|周道生|324.20|成功||399617|8月水|
41514|622439490110853249|谢雄文|33.60|成功||361977|8月水|
41514|090403010101732857|王华|23.10|成功||352394|8月水|
41514|090403010100964326|冯金华|4011.00|成功||473952|8月水|
41514|622439720002592538|陆志辉|336.00|成功||483174|8月水|
41514|090403010100713229|王树坚|787.50|成功||251522|8月水|
41514|090404010100646534|严耀章|493.50|成功||419807|8月水|
41514|090404010100624590|陈远雄|342.30|成功||412736|8月水|
41514|090328010100664808|伍伟权|567.00|成功||633656|8月水|
41514|090402010101722372|卢碧云|529.20|成功||623464|8月水|
41514|090402010101609069|黄文伟|371.70|成功||704158|8月水|
41514|090403010180488838|钟秋松|635.40|成功||504468|8月水|
41514|06832877000002578|吴国辉|9117.40|成功||430697|8月水|
41514|090403010100964326|冯金华|8148.00|成功||401695|8月水|
41514|622439750000003170|刘记财|406.10|成功||677474|8月水|
41514|090403010100964326|冯金华|3234.00|成功||435792|8月水|
41514|03972543000000283|毕再明|151.20|成功||449121|8月水|
41514|090303010100670672|汤齐好|993.30|成功||465752|8月水|
41514|090304010101662518|谢少贤|451.50|成功||710185|8月水|
41514|090401010101179331|袁美福|317.10|成功||485053|8月水|
41514|03642791000002070|马伟光|237.30|成功||414490|8月水|
41514|090403010100964326|冯金华|32912.90|成功||359854|8月水|
41514|622439720002588403|张名米|40.70|成功||674650|8月水|
41514|03912667000000379|杨雪珍|1173.90|成功||638635|8月水|
41514|622439720002589708|罗启云|1458.20|成功||658993|8月水|
41514|622439720002589948|姚凤英|82.30|成功||638907|8月水|
41514|622439720002613300|陈明军|221.30|成功||675033|8月水|
41514|622439720002035942|邓绮梅|918.50|成功||443937|8月水|
41514|622439720003123929|郑炫钊|311.60|成功||378134|8月水|
41514|622439720002612732|刘念久|573.30|成功||507059|8月水|
41514|622439720002035942|邓绮梅|917.70|成功||284271|8月水|
41514|090401010102384889|罗英杰|154.10|成功||384158|8月水|
41514|622439690000207514|邱金权|1449.00|成功||492045|8月水|
41514|622439720002611270|邱志文|205.80|成功||441011|8月水|
41514|07092741000000714|肖世付|751.80|成功||472029|8月水|
41514|090403010101549405|黄志聪|58.80|成功||688387|8月水|
41514|622439610000357234|洪金福|877.80|成功||500542|8月水|
41514|622439720002574114|王伟明|302.40|成功||709800|8月水|
41514|090401010101794043|翁景康|61.70|成功||414946|8月水|
41514|090404010100765142|刘房金|240.20|成功||467688|8月水|
41514|06832877000002578|吴国辉|20160.00|成功||245065|8月水|
板凳
lbscyb [专家分:4780] 发布于 2010-11-18 22:47:00
append from ....DELIMITED WITH CHARACTER Delimiter
DELIMITED WITH CHARACTER Delimiter
指定字段之间由给定的 Delimiter 分隔。如果 Delimiter 是分号 ( 分号 Visual FoxPro 用于命令行的延续), 应用引号括起来。您也可以指定 BLANK 和 TAB 作为 Delimiter 关键字。WITH Delimiter 子句可与 WITH CHARACTER 子句结合使用。例如,下面的命令从文本文件中添加记录,字符字段用下划线( _ ) 标识,而字段之间用星号(*) 分隔:
APPEND FROM mytxt.txt DELIMITED WITH _ WITH CHARACTER *
我来回复