资源描述:
《提取文件夹中所有txt中所需信息并导入数据库》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>2、pe"content="text/html;charset=utf-8"/>
提取数据<%Setfso=Server.CreateObject("Scripting.FileSystemObject")onerrorresumenextSetobjFolder=fso.GetFolder("C:JerryASPWEBwwwrootgetdata")SetobjFiles=objFolder.Files'循环输出文件夹path下的文件的文件名ForeachobjFileino
3、bjFiles'取相关值txtname=""name1=""school=""sex=""qq=""msn=""telephone=""ifobjFile.Type="TextDocument"thenResponse.Write"
"+objFile.Name&"
"txtname=objFile.Name'判断是否有相同的文件名Setrs2=Server.CreateObject("ADODB.Recordset")sql="select*fromdbo.data1wheretxtname="&txtnamers2.Op
4、ensql,objConn,1,3ifrs2.eof=truethen'读取文档dimfsodimpathsetfso=server.createobject("scripting.filesystemobject")path=objFile.Pathsetfile=fso.opentextfile(path,1,true)ifnotfile.atendofstreamthenline=file.ReadAllendif'提取姓名response.write("姓 名:")n=instr(line,"帐号<#>")m=instr(li
5、ne,"装扮主页修改资料")ifm=0then'提取物修改资料这块的账户姓名line=right(line,len(line)-n-13)i=instr(line,"x{")ifi<5andi<>0thenname1=mid(line,1,i-1)elsename1=mid(line,1,3)endifresponse.writename1+"
"elseline=right(line,len(line)-m-127)i=instr(li
6、ne,"x{")ifi<5thenname1=mid(line,1,i-1)elsename1=mid(line,1,3)endifresponse.writename1+"
"endif'提取所在学校str2="所在学校:"str3="生 日:"str4="<"str5=">"n=Instr(line,str2)m=Instr(line,str3)ifn<>0thenschool=mid(line,n+11,m-n-11)response.write"所在学校:"+school+"
"'提取了所在大学endif'提取生
7、日line=right(line,len(line)-m+1)n=Instr(line,str4)year1=mid(line,1+9,n-10)'提取了年份line=right(line,len(line)-n)n=Instr(line,str5)m=instr(line,str4)month1=mid(line,n+1,m-n-1)'提取了月份line=right(line,len(line)-m)n=Instr(line,str5)m=instr(line,str4)day1=mid(line,n+1,m-n-1)'提取了日bir
8、thdate=replace(year1&month1&day1,"","")response.Write("生日:"+birthdate+"
")'显示生日'提取了性别n=instr(line,"性