06-09-2015, 12:24 AM
Hi Team, I found the solution
Sample.txt contains the above content
Hope it will help someone
Sample.txt contains the above content
Code:
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTxtFile = FSO.OpenTextFile("C:\Users\Suresh\Desktop\sample.txt")
i=0
Do Until objTxtFile.AtEndOfStream
sContent = objTxtFile.ReadLine
sContent= replace(sContent,"<sourceid>","sourceid=")
sContent= replace(sContent,"</sourceid>","@sourceid")
a=instr(sContent,"=")
a=a+1
b=instr(sContent,"@")
c=b-a
sContent=Mid(sContent,a,c)
print sContent
i = i+1
Loop