I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
jeg er skam godt klar over hvordan man læser i en tekst fil, men det var jo ikke det jeg spurgte om! jeg skulle have en søge maskine som kunne søge i MANGE filer.
eller du skal selvf ikke lave til alle filerne, men bare lige vise hvordan man f.eks. søge i 3 af dem på samme tid... jeg skal selvf nok selv lave alt indskrivnings arbejdet
lav en fil der indeholder navnene på alle filerne, så laver du en løkke der kører indtil der ikke er flere filer. Når du har denne kan du kalde de forskellige filer med navnet du henter fra den overordnede fil...
<% Function InstrFile(file, search) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set stream = fso.OpenTextFile(file) tmp = stream.readAll() Set stream = nothing Set fso = nothing If Instr(1, tmp, search) > 0 Then InstrFile = True Else InstrFile = False End if End Function
player = Request.QueryString("player") path = "c:\inetpub\wwwroot\" Found = False
Set fso = Server.CreateObject("Scripting.FileSystemObject") Set map = fso.GetFolder(path) Set files = map.files
For each item in files If Right(item.name, 3) = "cfg" Then If InstrFile(path & "\" & item.name, player) = True Then Found = True Exit For End if End if Next
Set files = nothing Set map = nothing Set fso = nothing
If found = True Then Response.Write("player found") Else Response.Write("player NOT found") End if %>
Hermed den lovede kode, der består af to functions. Du skal selvfølgelig ændre filnavne.
<% ' Make list of files to search Dim files(2) files(0) = "s0.txt" files(1) = "s1.txt" files(2) = "s2.txt"
Dim fs, folder Set fs = CreateObject("Scripting.FileSystemObject") folder = "text\" ' subfolder to search
' function to find a word i a file function FindWord(AFileName, AWord) ' Full path Dim f response.write(afilename) Set f = fs.OpenTextFile(AFileName, 1) FindWord = False do while not f.AtEndOfStream s = f.ReadLine P = inStr(s, AWord) response.write(s & "<br>") if (P > 0) then FindWord = True Exit function end if loop f.Close end function
' Find a word i files function FindWordInFiles(AWord) FindWordInFiles = False for each Item in files if FindWord(Server.MapPath(folder & Item), AWord) then FindWordInFiles = True Exit function end if next end function
Found = FindWordInFiles("test") ' The word to find if Found then Response.Write("Found") else Response.Write("Not found") end if %>
<% Function InstrFile(file, search) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set stream = fso.OpenTextFile(file) tmp = stream.readAll() Set stream = nothing Set fso = nothing If Instr(1, tmp, search) > 0 Then InstrFile = True Else InstrFile = False End if End Function
player = Request.QueryString("player") path = "c:\sierra\Half-Life\cstrike\banned" Found = False
Set fso = Server.CreateObject("Scripting.FileSystemObject") Set map = fso.GetFolder(path) Set files = map.files
For each item in files If Right(item.name, 3) = "cfg" Then If InstrFile(path & "\" & item.name, player) = True Then Found = True Exit For End if End if Next
Set files = nothing Set map = nothing Set fso = nothing
If found = True Then Response.Write("player found") Else Response.Write("player NOT found") End if %>
Mener det er noget med at der skrives til filerne samtidig med at der læses fra dem.
Function InstrFile(file, search) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set stream = fso.OpenTextFile(file) On error resume next tmp = stream.readAll() If err.number <> 0 Then err.Clear() End if Set stream = nothing Set fso = nothing If Instr(1, tmp, search) > 0 Then InstrFile = True Else InstrFile = False End if End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
