[Файловая система] Взять инфу из файла

[modnik]

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

 

[gregaz]

modnik [?]

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

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

 

[modnik]

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

 

[gregaz]

#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 [?]

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

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

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)

Добавлено:

Сообщение автоматически объединено: 6 Мар 2010

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

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)