Új hozzászólás Aktív témák

  • joci9

    tag

    válasz BG* #6740 üzenetére

    Szasza!

    Hát a HMI saját file olvasójával (ha PC akkor működ a filesys obj)
    be kell olvasni az egész fájlt egy stringbe, és azt kell feldarabolni megfelelően, majd beletolni a tömbbe.

    Do While InStr(FileIndex, File, Chr(13)) 'addig megyünk, míg kocsi vissza karaktert találunk
    FileIndex = InStr(FileIndex, File, Chr(13))
    FileRowData = Mid ( File, FileIndexZero, (FileIndex-FileIndexZero))
    fields = Split(FileRowData,";") 'store line in temp array
    For column = 0 To 9 '6iterate through the fields of the temp array
    myArray(FileRow, column) = fields(column) 'store each field in the 2D array with the given coordinates
    Next
    FileRow=FileRow+1
    FileIndex = FileIndex + 2
    FileIndexZero = FileIndex
    Loop

    ebben elvileg csak a VB saját stingkezelő függvényei vannak, muszáj neki működni minden platformon.

    üdv
    J

Új hozzászólás Aktív témák