Что нового

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

modnik

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

modnik

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

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
Код:
#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)


Дальше сам сделаешь ? или доделать ?
 
Автор
M

modnik

Знающий
Сообщения
138
Репутация
13
Да, думаю справлюсь
 

gregaz

AutoIT Гуру
Сообщения
1 166
Репутация
299
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)




Добавлено:
Сообщение автоматически объединено:

Или если чуть причесать :
Код:
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)
 
Верх