Writing a particular name from a file to another file

[zealdeep]

Hi,
I need some help for reading from a text file, and writing a specific data starting with an element into another Text file

I tried with following code and the code is asfollows

Code:

Option Explicit Dim oFSO, oTxtFile, sLine,oFilename,oFTO Const ForWriting = 2 Const ForAppending = 8 'Dim oFSO, oTxtFile Set oFTO = CreateObject("Scripting.FileSystemObject") Set oTxtFile = oFTO.OpenTextFile("C:Newfolder\XXXXX.YYY_ZZZ.xml", 1) oTxtFile.Skipline Do Until oTxtFile.AtEndOfStream oTxtFile.skip(70) sLine = oTxtFile.ReadLine Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFilename = oFSO.OpenTextFile("C:\Bundle\Filename.txt",ForAppending) oFilename.WriteBlankLines(2) oFilename.Write (sLine) oFilename.Close Loop

Actually i need to open a .xml file and note all the specific name starting with Name"xyz.xml", which has a list of xml names from line 2 to end of the file,which is arounf 70 character in a line so i wondering how to capture only the name of the .xml file

[Saket]

the objective is not clear, exactly what values you are trying to extract from the xml file.
you can use XMLUtil or MSXML instead of Filesystemobject for reading a xml doc.

or else if you can paste the piece of your xml structure with more explanation of what are you trying to extract, will help.

[zealdeep]

the data in xml file from which i need to read data is in the below form

Code:

<manifest docCount="00005" datauri="data/ABC_XYZ.DOCS" db="ASDF" triggersuffix="POP.1289"> <details> homecsi="1212" name ="XYZ-1234.xml"/></details> <details> homecsi="1212" name ="ABC-2345.xml"/></details> <details> homecsi="1212" name ="ASD-3456.xml"/></details> <details> homecsi="1212" name ="QWE-2346.xml"/></details> </manifest>

now i will have to just read the name in each line i.e. XYZ-1234.xml, and write in another file.

I tried from the below code

Code:

Option Explicit Dim oTxtFile, oFTO,sCharacters 'Creating an object Set oFTO = CreateObject("Scripting.FileSystemObject") Set oTxtFile = oFTO.OpenTextFile("D:\Documents and Settings\Desktop\sample.xml", 1) 'To skip the first line oTxtFile.Skipline 'To read and write data from a textfile till endof stream Do Until oTxtFile.AtEndOfStream ' Skip the characters till charater 32 oTxtFile.skip(32) ' this count of characters skipped may vary from each manifest file If oTxtFile.AtEndOfStream Then Exit Do End If sCharacters = oTxtFile.Read(12)'for reading only the .xml file name MsgBox sCharacters oTxtFile.SkipLine Loop 'end of Do loop

I am looking for considering from the name element, like the xml file name (XYZ-1234.xml) should only be considered as the no. of digits in homecsi may vary from 3 to 5 digits, so could you please suggest me something where i can just consider the filename, and not the count from each line

Thanks
Deepak

[Saket]

Have you tried using XMLUtil or MSXML to read your xml file? search this forum for info on this.

[pavansri]

following script should solve your problem

Code:

Option Explicit Dim oTxtFile, oFTO,sCharacters,cTextFile,i,nametofind,name 'Creating an object Set oFTO = CreateObject("Scripting.FileSystemObject") Set oTxtFile = oFTO.OpenTextFile("C:\test.xml", 1) nametofind = Split ( oTxtFile.ReadAll , "name =", -1) For i=1 To UBound(nametofind) name = name & vbNewLine & Mid ( nametofind(i),2,12) Next 'disaplaying the captured names MsgBox name 'create a txt file Set cTextFile=oFTO.createtextfile( "C:\test.txt",true) 'writing the names captured to the text file cTextFile.writeline name

[zealdeep]

I got it resolved,
Thanku Pavansri

[pavansri]

Most Welcome