Replacing 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>


Help is very much appreciated.

 

[CubeE101]

Try this...

&quot;File1.txt&quot; is the file you are Reading...
&quot;File2.txt&quot; is the file you are Creating...

On Error GoTo NoFile
Open "File1.txt" For Input As #1
Open "File2.txt" For Output As #2
If Not EOF(1) Then
  Do
    Line Input #1, A$
    i% = InStr(1, A$, ",")
    If i Then
      User$ = RTrim$(LTrim$(Left$(A$, i - 1)))
      Pass$ = RTrim$(LTrim$(Right$(A$, Len(A$) - i)))
      Print #2, &quot;<uname=&quot; + User$ + &quot;>&quot;
      Print #2, &quot;<pword=&quot; + Pass$ + &quot;>&quot;
    End If
  Loop Until EOF(1)
End If
Close
End

NoFile:
Print &quot;File Not Found!!!&quot;
Close
End

****** Not Tested... I only Have VB on this PC... If it does not work, Let me know and I will Fix It...

*Note:
If It Does Not Work...
This Line:
Pass$ = RTrim$(LTrim$(Right$(A$, Len(A$) - i)))
Might need to be:
Pass$ = RTrim$(LTrim$(Right$(A$, (Len(A$) - i) - 1)))

Good Luck,
-Josh S

Have Fun, Be Young... Code BASIC
-Josh

http://cubee.topcities.com