Split a text file

[priyanka1915]

I want to slipt the following data ....


189{405.7}25{406.7}1{409.7}2{1.7}909<02.01.138.000 .9>{0.11}532756{401.7}2{402.7}0{403.7}1{404.12}185 .2{405.7}25{406.7}1{409.7}3{1.7}909<02.01.138.000. 9>{0.11}532756{401.7}2{402.7}1{403.7}1{404.12}191{ 405.7}50{406.7}1{409.7}3{1.7}909<02.01.138.000.9>{ 0.11}532756{401.7}2{402.7}0{403.7}1{404.12}185.1{4 05.7}10{406.7}1{409.7}4{1.7}909<02.01.138.000.9>{0 .11}532756{401.7}2{402.7}1{403.7}1{404.12}191.8{40 5.7}500{406.7}1{409.7}4{1.7}909...

[QVeen72]

Hi,

use "Split" function..

Regards
Veena

[Ali Rizwan]

Hi,
With which key word you want to split the text.
Did you want to split the text after every . or { or text between them.

GOOD LUCK
ALI

[9815402440]

hi priyanka

try this code


Const a = "189{405.7}25{406.7}1{409.7}2{1.7}909<02.01.138.00 0.9>{0.11}532756{401.7}2{402.7}0{403.7}1{404.12}18 5.2{ 405.7}25{406.7}1{409.7}3{1.7}909<02.01.138.000.9>{ 0.11}532756{401.7}2{402.7}1{403.7}1{404.12}191{40 5.7}50{406.7}1{409.7}3{1.7}909<02.01.138.000.9>{0. 11}532756{401.7}2{402.7}0{403.7}1{404.12}185.1{ 405.7}10{406.7}1{409.7}4{1.7}909<02.01.138.000.9>{ 0.11}532756{401.7}2{402.7}1{403.7}1{404.12}191.8{ 405.7}500{406.7}1{409.7}4{1.7}"
Dim varBFR
Dim varBFR1
Dim varBFR2

varBFR = Split(a, ">")
Dim i As Integer
Dim ii As Integer
Dim iii As Integer
For i = 0 To UBound(varBFR)
varBFR1 = Split(varBFR(i), "<")
For ii = 0 To UBound(varBFR1)
varBFR2 = Split(varBFR1(ii), "}")
For iii = 0 To UBound(varBFR2)
Debug.Print varBFR2(iii) & IIf(InStr(1, varBFR2(iii), "{", vbTextCompare) > 0, "}", "")
Next
Next
Next

regards
manpreet singh dhillon hoshiarpur

[priyanka1915]

Hey thanks guys actually this data save in text file n i have to crunch the data

From following data i want to retrive the values like
"189{405.7}25{406.7}1{409.7}2{1.7}909<02.01.138.00 0.9>{0.11}532756{401.7}2{402.7}0{403.7}1{404.12}18 5.2{ 405.7}25{406.7}1{409.7}3{1.7}



189
25
1
2
909
532756
2
0....
so on

Thank you
please help its urgent

[9815402440]

hi priyanka
try following code

Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.OpenTextFile("F:\Documents and Settings\XPPRESP3\My Documents\1.txt")
Dim varBFR
While Not ts.AtEndOfStream
varBFR = Split(ts.ReadLine, "}")
Dim i As Integer
For i = 0 To UBound(varBFR)
Debug.Print Val(varBFR(i))
Next
Wend


regards
manpreet singh dhillon hoshiarpur

[priyanka1915]

Hey thanks manpreet, but it is giving error " complier error" near Set ts = fso.OpenTextFile("C:\rawdata.txt").....help me please

[9815402440]

hi priyanka

add refererence to Microsoft Scripting Runtime. to do this open Project Menu and select Reference option


regards
manpreet singh dhillon hoshiarpur

[priyanka1915]

m attaching the text file just check withy dat

[priyanka1915]

hey but its not provide the proper values...

[QVeen72]

Hi Priyanka,

use this code:
Add a ListBox Control to ur Form and Check:

    Dim MyStr As String
    Dim TArr
    Dim i As Long
    Dim j As Long
    Dim TempStr As String
    '
    List1.Clear
    MyStr = "189{405.7}25{406.7}1{409.7}2{1.7}909<02.01.138.000.9>{0.11}532756{401.7}2{402.7}0{403.7}1{404.12}185.2{ 405.7}25{406.7}1{409.7}3{1.7}"
    TArr = Split(MyStr, "}")
    For i = LBound(TArr) To UBound(TArr)
        Dim NewArr
        TempStr = TArr(i)
        If Trim(TempStr) <> "" Then
            NewArr = Split(TempStr, "{")
            List1.AddItem NewArr(0)
        End If
    Next
    MsgBox "Over"
 

Regards
Veena

[9815402440]

Hi Priyanka

I am just suggesting the logic. I don't know what values you are expecting. I tried the file you sent, but no error was produced by the code. Because first few lines in the file cannot be used to extract values I have changed the code as follows:

Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.OpenTextFile("F:\Documents and Settings\XPPRESP3\My Documents\rawdata1.txt")
Dim varBFR
Dim i As Integer
Dim strString As String
While Not ts.AtEndOfStream
    strString = ts.ReadLine
    If InStr(1, strString, "}", vbTextCompare) > 0 Then
        varBFR = Split(strString, "}")
        For i = 0 To UBound(varBFR)
            Debug.Print Val(varBFR(i))
        Next
    End If
Wend

But this does not mean that this code will give the actual result you require. This is just to explain the logic. You have to modify the code according to your requirements.

Don't test large files in the debug window. You must create a breakpoint and check each value of varBFR(i) and then decide what to do with it.

Regards,
manpreet singh dhillon hoshiarpur

[priyanka1915]

Hey thanks...now I want to add that data in database... any ideas?