Parse cad text file

[Stacker]

Hi all,
i'm new

i have cad file like this:
......

# *** COMPONENTS ***
C00 CAP233   'Code
C01 1206         'Size
C02 1uF 10% 50V SMD 1206 X7R    'Description
#
C00 CAP32
C01 0805
C02 330nF 20% 50V SMD 0805 Y5V

So i need to search for "# *** COMPONENTS ***"  then read C00/C01/C02 and put  in array like  a[0][0] = C00, a[0][1]=C01 a[0][2] = C02.

Read file not to EOF but when string # *** REFERENCEPOINTS *** occur

next step is to organize data and write new file ( but is next step)  

 

Thx all for suggestions

 

[Jos]

Welcome: That shouldn't be too hard.  
Anything you already tried that you have question about?

Jos

[Stacker]

For moment only this

Can you explain me how ?

[water]

What to do depends on the filesize.
For smaller files I suggest you have a look at FileReadToArray. Then loop through the resulting array.

[Jos]

Here is a very basic script to get you going:

#include <array.au3>
$fh = FileOpen("test.txt")
$FndData = False
$Cnt = 0
Global $Data[100][3]

While 1
    $rec = FileReadLine($fh)
    If @error Then ExitLoop ; EOF encountered
    If StringInStr($rec, "# *** COMPONENTS ***") Then
        $FndData = True
    EndIf
    ; only process when start string encountered
    If $FndData Then
        If StringLeft($rec, 3) = "C00" Then
            $Cnt += 1
            $Data[$Cnt][0] = StringMid($rec, 4)
        ElseIf StringLeft($rec, 3) = "C01" Then
            $Data[$Cnt][1] = StringMid($rec, 4)
        ElseIf StringLeft($rec, 3) = "C02" Then
            $Data[$Cnt][2] = StringMid($rec, 4)
        EndIf
    EndIf
WEnd
_ArrayDisplay($Data)

 

Jos

[Stacker]

Thank you jos.

now i'm at work. When i have one moment i try your code

[Jos]

Saw I missed the test for the end marker:

#include <array.au3>
$fh = FileOpen("test.txt")
$FndData = False
$Cnt = 0
Global $Data[100][3]

While 1
    $rec = FileReadLine($fh)
    If @error Then ExitLoop ; EOF encountered
    ; Start processing when End marker encountered
    If StringInStr($rec, "# *** COMPONENTS ***") Then
        $FndData = True
    EndIf
    ; Stop processing when End marker encountered
    If StringInStr($rec, "# *** REFERENCEPOINTS **") Then
        ExitLoop
    EndIf
    ; Only process when start string encountered
    If $FndData Then
        If StringLeft($rec, 3) = "C00" Then
            $Cnt += 1
            $Data[$Cnt][0] = StringMid($rec, 4)
        ElseIf StringLeft($rec, 3) = "C01" Then
            $Data[$Cnt][1] = StringMid($rec, 4)
        ElseIf StringLeft($rec, 3) = "C02" Then
            $Data[$Cnt][2] = StringMid($rec, 4)
        EndIf
    EndIf
WEnd
_ArrayDisplay($Data)

Enjoy,

Jos

 

[Stacker]

I try your code, work great but i have to ask 2 things.

the first is: you set array $data to [100][3] but if i don't know the dimension of row " [100] "

another things is possible to have prompt to select the file

thxs so much

[Stacker]

File open dialog SOLVED

 

[Stacker]

Solved

i Redim array by $cnt at the end......