how to separate first and second 8 characters from line and store it in new txt file

[kristina1]

hi
i have one txt file that contain data like this

11111111,22222222
22222222,33333333
33333333,44444444


what im trying to do is to make 2 new txt files and to store first 8 characters into first txt and second 8 chars into second txt ... " , " should be excluded

can anyone help me with this

thanks in advice
kristina

[kadghar]

hi
i have one txt file that contain data like this
...
can anyone help me with this

thanks in advice
kristina

Hi Kristina,

sure, use the MID function to take the part of the string you want
lets say you have Srt1 and Str2 as strings, and

Str1= 12345678,12345678

with MID:

Strt2= mid(str1,1,8) '(base string, starting position, length)

you will have Str2= 12345678
other example:

Str3 = ("hello world",3, 5)

will make Str3 = "llo w"

a more general way will be using also INSTR

HTH

[kristina1]

it works
thank you so much

[Torgg]

I think this should get you what you want.

        Dim file_stream As IO.FileStream
        Dim bytes As Byte()
        Dim myArray() As String
        Dim strLine As String
 
        Dim stream_reader = New System.IO.StreamReader("c:\test0.txt") ' Change path to your source file
        While stream_reader.Peek() >= 0
            strLine = stream_reader.readline()
            myArray = Split(strLine, ",")
 
            file_stream = New IO.FileStream("c:\test1.txt", IO.FileMode.Append) 'Change path to the file for the first value
            bytes = New System.Text.UTF8Encoding().GetBytes(myArray(0) & vbCrLf)
            file_stream.Write(bytes, 0, bytes.Length)
            file_stream.Close()
 
            file_stream = New IO.FileStream("c:\test2.txt", IO.FileMode.Append) 'Change path to the file for the second value
            bytes = New System.Text.UTF8Encoding().GetBytes(myArray(1) & vbCrLf)
            file_stream.Write(bytes, 0, bytes.Length)
            file_stream.Close()
        End While
 
        MessageBox.Show("Done")

Torgg

[Torgg]

Or you could parse it in one line of code

Dim arrayValues() As String = Split("33333333,44444444", ",")
MsgBox(arrayValues(0))
MsgBox(arrayValues(1))

Torgg

[kristina1]

I done it and there is the code

Dim str1 As String
Dim str2 As String
Dim str3 As String
Open "c:\1a.pair" For Input As #1     'original file
Open "c:\11.pair" For Output As #2  'new file
Open "c:\12.pair" For Output As #3
Do Until EOF(1) 'read in file until done
  Line Input #1, str1
  str2 = Mid(str1, 1, 32)
  str3 = Mid(str1, 34, 32)
  Print #2, str2
  Print #3, str3
Loop
Close #1
Close #2
Close #3

Thanks once again.

[Killer42]

str2 = Mid(str1, 1, 32)
str3 = Mid(str1, 34, 32)

I see the specs changed somewhat, along the way. This is where the Split() function would have an advantage, of course - you wouldn't need to recode if the length of the fields changes.