Тема: [Файловая система] Взять инфу из файла (Прочитано 1201 раз)

modnik · « **Создано:** Март 06, 2010, 12:32:52 »

у меня есть вот это файл(в оригинале разрешение .csv, поменял,чтобы сюда залить). Мне нужно получить из него информацию!

gregaz

modnik [?]

Цитата

Мне нужно получить из него информацию!

В каком виде ? Что получить ?

modnik

вот так вглядит это всё в интерфейсе. Вот допустим надо получить какой то столбец, ну скажим надо получить "bb\100"

gregaz

Код: AutoIt [Выделить]

#include <Array.au3>
   $file = FileOpen("StatsGrid.txt", 0)

   If $file = -1 Then
       MsgBox(0, "Error", "Unable to open file.")
       Exit
   EndIf

   $line1= FileReadLine($file)
   If @error = -1 Then Exit
   $aArrayShapka=StringSplit($line1,',')
   _ArrayDisplay($aArrayShapka,'$aArrayShapka')
   $line2= FileReadLine($file)
    If @error = -1 Then Exit
   $aArrayDate=StringSplit($line2,',')
    _ArrayDisplay($aArrayDate,'$aArrayDate')
   FileClose($file)
 

Дальше сам сделаешь ? или доделать ?

modnik

Да, думаю справлюсь

gregaz

modnik [?]

Цитата

Да, думаю справлюсь

На всякий случай :

Код: AutoIt [Выделить]

Global $sRezData
   
   $hFile = FileOpen("StatsGrid.txt", 0)
   
   If $hFile = -1 Then
       MsgBox(0, "Error", "Unable to open file.")
       Exit
   EndIf

   $sLine1= FileReadLine($hFile)
   If @error = -1 Then Exit
   $aArrayShapka=StringSplit($sLine1,',')
   $sLine2= FileReadLine($hFile)
   If @error = -1 Then Exit
   $aArrayDate=StringSplit($sLine2,',')
   FileClose($hFile)
   
   For $i=1 To UBound($aArrayShapka)-1
      If $aArrayShapka[$i]= "bb/100" Then 
         $sRezData=$aArrayDate[$i]
         ExitLoop
      EndIf
   Next
   
   MsgBox(0,'','Для  : bb\100' & 'Найденное значение :   ' & $sRezData)
 

Добавлено: Март 06, 2010, 13:42:04

Или если чуть причесать :

Код: AutoIt [Выделить]

Global $sRezData , $i
   
   $hFile = FileOpen("StatsGrid.txt", 0)
   
   If $hFile = -1 Then
       MsgBox(0, "Error", "Unable to open file.")
       Exit
   EndIf
   
   While 1
      $i+=1
      $sLine= FileReadLine($hFile)
      If @error = -1 Then ExitLoop
      If $i=1 Then $aArrayShapka=StringSplit($sLine,',')
      If $i=2 Then $aArrayDate=StringSplit($sLine,',')
   Wend

   FileClose($hFile)
   
   For $i=1 To UBound($aArrayShapka)-1
      If $aArrayShapka[$i]= "bb/100" Then 
         $sRezData=$aArrayDate[$i]
         ExitLoop
      EndIf
   Next
   
   MsgBox(0,'','Для  : bb\100' & 'Найденное значение :   ' & $sRezData)
 