McDMedlem sedan mars 20002 520 inläggFrågan#1 Tjena boys...
har ett litet problem... skulle behöva lite hjälp med att få bort dubletter i en textfil med vb scirpt (tänkte köra i schemaläggaren i win)
Varje nummer står på en rad
namn_nummer.txt som filen heter har o namn nummer i sig enligt nedan...
kalle45456
annika43623
gunnar45346
eva23546
kalle45456
sara2343457
erik3456576
maja34523
kalle45456
svante23454365
palle43534
ikas5345
Vill ju bara ha en kalle x(
e inge bra på sånt här... :P
namn_nummer.txt är ca 70 kb stor om det spelar någon roll!
SSebbeMedlem sedan jan. 20032 285 inlägg Skapa helst en kopia av textfilen innan du kör det här, bara "i fall att". ;)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("namn_nummer.txt")
strNN = ";"
Do Until objTS.AtEndOfStream
strLine = objTS.ReadLine
If InStr(strNN, ";" & strLine & ";") = 0 Then strNN = strNN & strLine & ";"
Loop
objTS.Close : Set objTS = Nothing
Set objTS = objFSO.OpenTextFile("namn_nummer.txt", 2)
objTS.Write(Replace(Mid(strNN, 2, Len(strNN) - 2), ";", vbCrLf)) ' Skriver över filen
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
/red Missade att det var VBScript det rörde sig om, eftersom det här forumet bara gäller ASP nu.
McDMedlem sedan mars 20002 520 inlägg oj sorry fel forum!
Danke sebbe funka klockrent!
