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

• #6746 joci9 tag BG* #6740

  Új Válasz 2017-03-31 12:47:31 #6746

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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