How to retrieve specied string from text file

[nsuresh316]

I have a txt file content is as follows

Code:

10.76.34.61 10.76.177.138 NULL POST /a2asoa/v2008/001/Security.asmx <REQ><OP>IsUserIdAvailable</OP><SOAP><userID>shawnandersonxnet</userID><pwd>****</pwd><sourceid>1012</sourceid><searchUserID>cwclvickers1</searchUserID><languageID>1</languageID></SOAP></REQ> 16 4000 200 0 931 931 NULL 89998 1 2015-06-03 14:26:17.257 3000 137580 0 10.76.34.61 10.76.177.138 NULL POST /a2asoa/v2008/001/Security.asmx <REQ><OP>GetSecLevelsFunctions</OP><SOAP><userId>shawnandersonxnet</userId><pwd>****</pwd><sourceid>1012</sourceid><searchSecLevels>17497</searchSecLevels><showInactiveSecLevels>0</showInactiveSecLevels><template>0</template><languageId>1</languageId></SOAP></REQ> 125 4000 200 0 1905 1905 NULL 91168 1 2015-06-03 14:33:10.350 3000 137580 0 10.76.34.223 10.76.177.141 NULL POST /a2asoa/v2008/001/Notifications.asmx <REQ><OP>GetClientConfig</OP><SOAP><sourceid>346</sourceid><userid>budcsa</userid><pwd>****</pwd><msgType>EMAIL</msgType><cardNumber>******7507804998</cardNumber><clientid></clientid><programid></programid><subProgramid></subProgramid></SOAP></REQ> 16 1000 200 0 958 958 NULL 72264 1 2015-06-03 07:58:27.657 1000 659 0 10.76.34.161 10.76.177.141 NULL POST /a2asoa/v2008/001/Security.asmx <REQ><OP>GetSecLevelsFunctions</OP><SOAP><userId>shawnandersonxnet</userId><pwd>****</pwd><sourceid>1012</sourceid><searchSecLevels>2732,2732</searchSecLevels><showInactiveSecLevels>0</showInactiveSecLevels><template>0</template><languageId>1</languageId></SOAP></REQ> 94 4000 200 0 841 841 NULL 37690 1 2015-06-03 15:26:35.080 3000 137580 0 10.76.34.61 10.76.177.138 NULL POST /a2asoa/v2008/001/Client.asmx <REQ><OP>GetAuthorizedClientTree</OP><SOAP><userId>shawnandersonxnet</userId><pwd>****</pwd><sourceid>1012</sourceid><clientId></clientId><clientNamePattern></clientNamePattern><startRow></startRow><stopRow></stopRow><languageId>1</languageId></SOAP></REQ> 7781 3500 200 0 1905 1905 NULL 94484 1 2015-06-03 15:26:49.083 3000 137580 0

From this file i want to retrieve the value from the element sourceid
for Eg.

Code:

<sourceid>1012</sourceid> From this i want 1012 alone

[nsuresh316]

Hi Team, I found the solution
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

Hope it will help someone