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

Quote:

Originally Posted by kristina1

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.

Expand|Select|Wrap|Line Numbers

         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

Expand|Select|Wrap|Line Numbers

 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

Quote:

Originally Posted by kristina1

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.

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

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

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

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

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

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

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

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about