Changing Text

[XMSMS]

Hi All,

I have a text file that is arranged as follows:

username1, password1
username2, password2
username3, password3

What i want my code to do for each line of this text file, is put usernamex into a variable and passwordx into a variable, so that they can be written to a different file.

basicaly, i need to convert a line like:

username1, password1

into a line like:

<uname=username1>
<pword=password1>

 

[PHV]

Try something like this:

Set fso=CreateObject("Scripting.FileSystemObject")
Set t1=fso.OpenTextFile("\path\to\input",1) 'ForReading
Set t2=fso.OpenTextFile("\path\to\output",2) 'ForWriting
While Not t1.AtEndOfStream
  buf=t1.ReadLine
  arr=Split(buf,",")
  t2.WriteLine &quot;<uname=&quot; & arr(0) & &quot;>&quot;
  t2.WriteLine &quot;<pword=&quot; & arr(1) & &quot;>&quot;
Wend
t1.Close
t2.Close

Hope This Help
PH.

 

[XMSMS]

hi thanks for that, it does exactly what i'm after.
i have come across one problem tho, if i want to do the following, it doesnt work:

t2.WriteLine &quot;<variable name=&quot;Name&quot;>o212</variable>&quot;

i'm guessing its because of the extra &quot;&quot;, how do i get around this

 

[PHV]

Try this:

t2.WriteLine &quot;<variable name=&quot; & Chr(34) & &quot;Name&quot; & Chr(34) & &quot;>o212</variable>&quot;

or this:

t2.WriteLine &quot;<variable name=&quot;&quot;Name&quot;&quot;>o212</variable>&quot;

Hope This Help
PH.