如何将txt文件导入数据库

2009-01-08 08:15:36 682 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

python将txt文件导入数据库中 1.将txt文件导入数据库中，文件中是包含管道的，例如 ①unlocking device | 1102364 ②your security software found malicious content in the email message | 1095329 ③transfer protection mac | 1110528 | 1060983 遇到的问题：①连接数据库时（最好以... 阅读详情

求各位专家帮忙.让我可安心回家过年.
将一个txt报文,一行行导入数据库中.应该怎么做.网上查了下.用fso应该可以做到.怎么编请指教非常感谢.有实例吗?
以下是报文格式,以"^" 分段:
ISA^00^ ^00^ ^ZZ^TRADIANT ^ZZ^CARRIERSENDERID^090105^1936^U^00401^015758190^1^P^>
GS^RO^TRADIANT^CARRIERSENDERID^20090105^193634^15758190^X^004010
ST^300^0001
B1^TRAD^15758190^20090105^N
Y7^^^^^20090124
Y1^20090112^^SCAC^O^^^^HH
Y2^4^R^HH^42GP
N9^AG^15758190
N9^BN^BOOKINGNUMBER
N9^SI^PLI00349
N9^FN^PLI00349
N9^KL^SW1203
N1^SH^TOSPO O/B
N3^LEVEL 6, THREE PACIFIC PLACE 1^QUEEN'S ROAD EAST
N4^DONGYANG^^200000^CN
N1^CN^PHILIPS LIGHTING LAMPS
N3^BRACKMILLS IND. ESTATE^GOWERTON ROAD,
N4^NORTHAMPTON^^NN4 7BW^GB
N1^R6^PHILIPS ELECTRONICS HK LTD^25^PHIL02^^ZZ
N3^LEVEL 6 THREE PACIFIC PLACE^1 QUEENS RD. EAST WANCHAI
N4^HONG KONG^^HK-ZZZ^HK
G61^RQ^CHERRY GUAN^TE^+86 21 24128807
G61^RQ^CHERRY GUAN^EM^CHERRY@DHL.COM
G61^RQ^CHERRY GUAN^FX^+86 21 54411115
N1^CA^CARRIER
G61^CA^ADMIN
R4^E^ZZ^GBSOU^SOUTHAMPTON^GB
R4^L^ZZ^CNSHA^SHANGHAI^CN
R4^D^ZZ^GBSOU^SOUTHAMPTON^GB
LX^1
L0^1^^^45948^G^184.8^X^84^PLT^^K
L5^1^ENERGY SAVING LAMPS
L1^1^^^99999^^^^^^^P
V1^^APL RUSSIA^^004W
SE^33^0001
GE^1^15758190
IEA^1^015758190

...全文

Oracle txt文件直接使用sqldlr将数据导入到数据库表中 Oracle txt文件直接使用sqlldr将数据导入到数据库表中在C#中使用oracle 的sqlldr命令实现txt文件导入到数据库表中，由于最近项目中遇到oracle存储过程定时读取文件的操作，同时DB和应用程序要放在不同的服务器上，出现存储过程无法访问应用程序所在的服务器的文件路径中的文件，就想到了这个方法。简单的实现代码： class Program { 阅读详情

qiqi163

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

qiqi163 2009-01-09

打赏
举报

请问下怎么插入数据库下的表下面.比如我已经建好表.
id temp1 temp2 temp3 ......temp17

ygyjack 2009-01-09

打赏
举报

[Quote=引用 7 楼 swhrzl 的回复:]
= =看了才知道多了点东西。啊啊。

VB code<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
TmpTxt=Txt.ReadAll
TmpArrTxt=Split(TmpText,VBCrLf)
for i=0 to ubound(TmpArrTxt)-1
TmpL=Split(TmpArrTxt(i),"^")
IntoStr=""
UpSqlStr=""
For k=0 to ubound(TmpL)
if k=0 then
…
[/Quote]
Ding...

liuhaibing0903 2009-01-09

打赏
举报

smartcatiboy 2009-01-09

打赏
举报

这栋数据用交叉表比较好

swhrzl 2009-01-09

打赏
举报

<% 

Set fs = Server.CreateObject("Scripting.FileSystemObject") 

File = Server.MapPath("File1.txt") 

Set txt = fs.OpenTextFile(File) 

TmpTxt=Txt.ReadAll 

TmpArrTxt=Split(TmpText,VBCrLf) 

for i=0 to ubound(TmpArrTxt)-1 

    TmpL=Split(TmpArrTxt(i),"^") 

    IntoStr=""

    UpSqlStr="" 

    For k=0 to ubound(TmpL) 

        if k=0 then 

            IntoStr="Temp"&Int(k+1)

            UpSqlStr="'"&TmpL(k)&"'"

        else 

            IntoStr=IntoStr & ",temp"&Int(k+1)

            UpSqlStr=UpSqlStr & ",'"&TmpL(k)&"'"

        end if 

    Next 

    if IntoStr <>"" and UpSqlStr <>"" then 

        conn.execute("INSERT INTO Temp ("&IntoStr&") VALUES ("&UpSqlStr&")") '这里就是插入数据库的语句，INTO Temp中的Temp是你建的表，首先你要先建立conn与数据库连接上就没问题了!

    End If 

Next 

%>

swhrzl 2009-01-08

打赏
举报

= =看了才知道多了点东西。啊啊。

<% 

Set fs = Server.CreateObject("Scripting.FileSystemObject") 

File = Server.MapPath("File1.txt") 

Set txt = fs.OpenTextFile(File) 

TmpTxt=Txt.ReadAll 

TmpArrTxt=Split(TmpText,VBCrLf) 

for i=0 to ubound(TmpArrTxt)-1 

    TmpL=Split(TmpArrTxt(i),"^") 

    IntoStr=""

    UpSqlStr="" 

    For k=0 to ubound(TmpL) 

        if k=0 then 

            IntoStr="Temp"&k 

            UpSqlStr="'"&TmpL(k)&"'"

        else 

            IntoStr=IntoStr & ",temp"&k 

            UpSqlStr=UpSqlStr & ",'"&TmpL(k)&"'" 

        end if 

    Next 

    if IntoStr <>"" and UpSqlStr <>"" then 

        conn.execute("INSERT INTO Temp ("&IntoStr&") VALUES ("&UpSqlStr&")") 

    End If 

Next 

%>

smartcatiboy 2009-01-08

打赏
举报

[Quote=引用 4 楼 net8guest 的回复:]
如果是txt报文,以"^" 分段,以回车换行

可以 bulk insert 一次将整个txt文件导入数据库中

bulk insert 的具体使用参见 ms sql 2000 帮助说明
[/Quote]

学习ing

swhrzl 2009-01-08

打赏
举报

少了一个东西intostr

<% 

Set fs = Server.CreateObject("Scripting.FileSystemObject") 

File = Server.MapPath("File1.txt") 

Set txt = fs.OpenTextFile(File) 

TmpTxt=Txt.ReadAll 

TmpArrTxt=Split(TmpText,VBCrLf) 

for i=0 to ubound(TmpArrTxt)-1 

    TmpL=Split(TmpArrTxt(i),"^") 

    IntoStr=""

    UpSqlStr="" 

    For k=0 to ubound(TmpL) 

        if k=0 then 

            IntoStr="Temp"&k 

            UpSqlStr="temp"&k&"='"&TmpL(k)&"'" 

        else 

            IntoStr=IntoStr & ",temp"&k 

            UpSqlStr=UpSqlStr & ",'"&TmpL(k)&"'" 

        end if 

    Next 

    if IntoStr <>"" and UpSqlStr <>"" then 

        conn.execute("INSERT INTO Temp ("&IntoStr&") VALUES ("&UpSqlStr&")") 

    End If 

Next 

%>

net8guest 2009-01-08

打赏
举报

如果是txt报文,以"^" 分段,以回车换行

可以 bulk insert 一次将整个txt文件导入数据库中

bulk insert 的具体使用参见 ms sql 2000 帮助说明

swhrzl 2009-01-08

打赏
举报

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
TmpTxt=Txt.ReadAll
TmpArrTxt=Split(TmpText,VBCrLf)
for i=0 to ubound(TmpArrTxt)-1
TmpL=Split(TmpArrTxt(i),"^")
UpSqlStr=""
For k=0 to ubound(TmpL)
if k=0 then
IntoStr="Temp"&k
UpSqlStr="temp"&k&"='"&TmpL(k)&"'"
else
IntoStr=IntoStr & ",temp"&k
UpSqlStr=UpSqlStr & ",'"&TmpL(k)&"'"
end if
Next
if IntoStr<>"" and UpSqlStr<>"" then
conn.execute("INSERT INTO Temp ("&IntoStr&") VALUES ("&UpSqlStr&")")
End If
Next
%>

qiqi163 2009-01-08

打赏
举报

谢谢回复。报文的每一行存进数据库里的一行记录
“^”把它分成一个个字段。存进数据库
例如第一行 ISA 有16个字段分别存进数据库下的
id temp1 temp2 temp3 ......temp17
1 00 00........ >

接下来就是GS 这一行了
请专家详细教导

swhrzl 2009-01-08

打赏
举报

你一行行是指文本的换行吧？
那么用^来分段是指什么呢？
每行中的每个^都存一次吗?
ST^300^0001
B1^TRAD^15758190^20090105^N
Y7^^^^^20090124
ST 存
300 存
0001 存
B1 存?

如何将txt文件导入数据库

相关推荐