Что нового

[Данные, строки] как сделать чтение/запись текстового файла?

forfrends

Новичок
Сообщения
176
Репутация
3
Привет всем!
Это сново я, как всегда пытаюсь разобраться в autoit а справка по программе тупая.
У меня ситуация, нужно сделать запись в файл текстового масива. Например, у меня есть масив
$slovo[$i]
где $i , допустим, достигает от 0 до 5000
мне нужно сделать запись в файл масива, в каждой новой строке файла должно быть значение $i + содержние масива.
В тексте оно должно выглядеть примерно так:
12, слово масива
13, слово масива
14, слово масива
15, ...


+
нужно сделать чтение из файла, что бы цифры присваивались значанию $i а слово масива присваивалось $slovo[$i]
Тоесть:
12, слово масива ==> $i = 12; $slovo[$i] = "слово масива"
13, слово масива ==> $i = 13; $slovo[$i] = "слово масива"
14, слово масива ==> $i = 13; $slovo[$i] = "слово масива"
15, ...


Подскажите, как это все можно сделать?!
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
forfrends
Попробуйте так:
Код:
#include <file.au3>
#include <Array.au3>

Dim $aArrey
$sFileOld = @ScriptDir & "\1.txt"
$sFileNew = @ScriptDir & "\2.txt"
_FileReadToArray($sFileOld, $aArrey)
For $i = 1 To UBound($aArrey) - 1
	$aArrey[$i] = StringReplace($aArrey[$i], $aArrey[$i], $i & ", " & $aArrey[$i])
Next
_ArrayDisplay($aArrey)
_FileWriteFromArray($sFileNew, $aArrey, 1)
#include <Array.au3> и _ArrayDisplay($aArrey) можно убрать, они добавлены для наглядности.
 

Suppir

Продвинутый
Сообщения
967
Репутация
62
попробуй так:

Код:
for $i = 1 to UBound($slovo) - 1
	FileWriteLine("имя файла", $i & ", " & $slovo[$i])
Next
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
forfrends [?]
привет :bye:
а справка по программе тупая
я бы поспорил, да боюсь ты обидишься :smile:
Вот для прямой задачи. В качестве упражнения проделай обратную сам ;)
Код:
Local $a[5][2] = [ _
[11, 'слово массива1'], _
[12, 'слово массива2'], _
[13, 'слово массива3'], _
[14, 'слово массива4'], _
[15, 'слово массива5'] _
]

$sFile = @ScriptDir & '\text.txt'
$hWrite = FileOpen($sFile, 2)
$s = ''
For $i = 0 to UBound($a) - 1
	$s &= $a[$i][0] & @TAB & $a[$i][1] & @CRLF
Next
FileWrite($hWrite, $s)
 
Автор
F

forfrends

Новичок
Сообщения
176
Репутация
3
Всем огромное спасибо и низкий поклон! :smile:
Я пытаюсь создать игрушку - Загадки (комп пытается отгадать слово, которое ты загадал)
Вот то, что у меня получилось:

http://filer.ucoz.com/zagadki.zip


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

Хорошо, с записью в файл ясно. А как сделать с него чтение?
Чтобы [$i] присваивалась цифра в начале строки
 

Tasolcheg

Новичок
Сообщения
27
Репутация
0
На тему игрушки) сделай файлик в который он будет записывать новые для себя загадки)и после рандомно чтонить из него выбирает.
 
Верх