Quick test professional 11

'Remove the repetitive strings form a huge set of data in text file 


Set otext = createobject("scripting.filesystemobject")
set otxt= otext.OpenTextFile("C:\Users\psha64\Desktop\QTP_Algo\inactive.txt",1)
str = otxt.ReadAll
strarr = split(str," ")
strnum = ubound(strarr)
For i=0 to strnum-1
If not(instr(1,temp,strarr(i))>0) Then
    temp = temp&" "&strarr(i)
End If
Next

msgbox temp