当前位置：文档之家› 提取文件夹中所有TXT中所需信息并导入数据库

提取文件夹中所有TXT中所需信息并导入数据库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>提取数据</title></head><body><%Set fso = Server.CreateObject("Scripting.FileSystemObject")on error resume nextSet objFolder=fso.GetFolder("C:\Jerry\ASP\WEB\wwwroot\getdata") Set objFiles=objFolder.Files'循环输出文件夹path下的文件的文件名For each objFile in objFiles '取相关值txtname=""name1=""school=""sex=""qq=""msn=""telephone=""if objFile.Type="Text Document" thenResponse.Write " "+ & " "txtname='判断是否有相同的文件名Set rs2 = Server.CreateObject("ADODB.Recordset")sql="select * from dbo.data1 where txtname="&txtnamers2.Open sql,objConn,1,3if rs2.eof=true then'读取文档dim fsodim pathset fso=server.createobject("scripting.filesystemobject")path = objFile.Pathset file = fso.opentextfile(path,1,true)if not file.atendofstream thenline=file.ReadAllend if'提取姓名response.write ("姓名:")n=instr(line,"帐号 <#>")m=instr(line,"装扮主页</store/view/home?wc=10000>修改资料")if m=0 then'提取物修改资料这块的账户姓名line=right(line,len(line)-n-13)i=instr(line,"\x{")if i<5 and i<>0 thenname1=mid(line,1,i-1) elsename1=mid(line,1,3)end ifresponse.write name1+" " elseline=right(line,len(line)-m-127)i=instr(line,"\x{")if i<5 thenname1=mid(line,1,i-1) elsename1=mid(line,1,3)end ifresponse.write name1+" " end if'提取所在学校str2="所在学校:"str3="生日:"str4="<"str5=">"n=Instr(line,str2)m=Instr(line,str3)if n<>0 thenschool=mid(line,n+11,m-n-11)response.write "所在学校："+school+" "'提取了所在大学end if'提取生日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)'提取了日birthdate=replace(year1&month1&day1," ","")response.Write ("生日:"+birthdate+" ")'显示生日'提取了性别n=instr(line,"性别 :")m=instr(line,"生日 :")sex=mid(line,n+10,1)response.Write "性别："+sex+" "'提取联系方式n=instr(line,"QQ :")m=instr(line,"MSN :")k=instr(line,"手机号 :")j=instr(line,"个人网站 :")if n<>0and m<>0 and k=0 then'只有QQ 和MSN的情况qq=mid(line,n+10,m-n-10)response.Write "QQ："+qq+" "'提取了QQmsn=mid(line,m+10,j-m-10)response.Write "MSN："+msn+" "'提取了msnelseif n<>0 and m=0 and k<>0 then'只有QQ和手机号码的情况qq=mid(line,n+10,k-n-10)response.Write "QQ："+qq+" "'提取了QQtelephone=mid(line,k+10,j-k-10)response.Write "手机号："+telephone+" "'提取了手机号elseif n<>0 and m=0 and k=0then'只有QQ的情况qq=mid(line,n+10,j-n-10)response.Write "QQ："+qq+" "'提取了QQelseif n<>0 and m<>0 and k<>0 then'QQ MSN 手机号码都有的情况qq=mid(line,n+10,m-n-10)response.Write "QQ："+qq+" "'提取了QQmsn=mid(line,m+10,k-m-10)response.Write "MSN："+msn+" "'提取了MSNtelephone=mid(line,k+10,j-k-10)response.Write "手机号："+telephone+" "'提取了手机号码elseif n=0 and m<>0 and k=0 then'只有MSN的情况msn=mid(line,m+10,j-m-10)response.Write "MSN："+msn+" "'提取了MSNelseif n=0 and m<>0 and k<>0 then'只有MSN 手机号的情况msn=mid(line,m+10,k-m-10)response.Write "MSN："+msn+" "'提取了MSNtelephone=mid(line,k+10,j-k-10)response.Write "手机号："+telephone+" "'提取了手机号elseif n=0 and m=0 and k<>0 then'只有手机号的情况telephone=mid(line,k+10,j-k-10)response.Write "手机号："+telephone+" "'提取了手机号end if'去除空格qq=replace(qq," ","")msn=replace(msn," ","")telephone=replace(telephone," ","")'将记录插入数据库中set cmd=Server.CreateObject("mand")query="insert into data1(txtname,name,school,birthdate,sex,qq,msn,telephone)values('"&txtname&"','"&name1&"','"&school&"','"&birthdate&"','"&sex&"','"&qq&"','"&msn&" ','"&telephone&"')"objConn.execute(query)elseresponse.Write("数据库中已经存在该文档名称的数据，请不要重复添加！")end ifrs2.closeend ifNextSet objFolder=nothingSet fso=nothing '释放对象%></body></html>。

e商务文档

提取文件夹中所有TXT中所需信息并导入数据库

相关文档推荐：