Öppna textfil, söka igenom och uppdatera

bigskyMedlem sedan maj 2002821 inlägg

Trådstart19 dec. 2005 08:47#1

Hur skulle man kunna göra om man vill öppna en textfil, söka av innehållet efter en viss text, tex. ett personnummer och sedan uppdatera filen endast om det aktuella personnumret INTE redan finns med i textfilen?

Jesper TMedlem sedan nov. 20017 144 inlägg

19 dec. 2005 16:15#2

Använd FSO för att loopa igenom innehållet i filen och instr() eller regexp (med test) för att kolla om sökordet finns eller ej.

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("C:\mappen\filen.txt", 1)

if isInstr(objTextStream.ReadAll,"691201(\s*|-)7031") then updTextfile
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function isInstr(str,pattern)
	With New RegExp
		.Pattern=pattern          
		isInstr = .Test(str)
	End With
End Function

Sub updTextfile
    'Uppdatera din textfil
End sub