ASP读文本文件的TAB键呀！~

[xmayxmei]

文本文件的结构是这样的：
我 1999-12-20 男 3.GIF
mm 1992-12-11 女 4.gif
中间是TAB键分割的，这样的文件怎么把他读到数据库
对应的每个字段啊~！

[Camelot]

aa=Split("用fso读到的文本",,Chr(13))'拆分每一行Chr(13)表示回车
bb=Split(aa(0),Chr(9))'拆分每行里的字段Chr(9)表示Tab键





┏━━━.:可爱的分割线:.━━━━━━━━━━━━━━━━
┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
┃在线的RSS订阅系统（Blog、新闻、技术）：http://www.gbmad.net/rss/
┃无论你在哪，只要能上网就能订阅查看你喜欢的聚合　　　　　　　　　
┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━

[newskyline]

dim AllText,Line,Field,i
AllText = GetFileText("a.txt")
Line = Split(AllText,vbCrLf)
for i = 0 to UBound(Line)
Field = Split(Line(i),Chr(9))
'在这里处理每个字段的数据
next

'获取文本内的所有内容
function GetFileText(strFilename)
dim TObject
dim TText
on error resume next
Set TObject=Server.CreateObject("Scripting.FileSystemObject")
Set TText=TObject.OpenTextFile(Server.MapPath(strFilename))
GetFileText = TText.ReadAll()
CloseObj TObject
if err.number <> 0 then
GetFileText = err.Description
err.clear
end if
end function