louie1743shkirondo
Новичок
- Сообщения
- 28
- Репутация
- 0
Итак, решил я такой потренироваться и написать простенькую программку для этого... Но у меня есть одна проблема: скрипт не записывает полученные данные в txt-документ(как бы это банально не звучало...).
Генадий записывает имена, но не вопросы/ответы.. Хотелось бы узнать, почему...
Сам код:
Если есть какие-либо мысли, прошу помочь и "наставить на путь истинный" (Рад любым предложениям/исправлениям(
))
Генадий записывает имена, но не вопросы/ответы.. Хотелось бы узнать, почему...
Сам код:
Код:
#include <file.au3>
#include <Array.au3>
HotKeySet("{ESC}", "Close")
$Input = InputBox("Знакомство", "Как тебя зовут?")
If Not FileExists(@ScriptDir & "\Name.txt") Then _FileCreate(@ScriptDir & "\Name.txt") ; Создание txt файла
$FilePathNames = @ScriptDir & "\Name.txt"
$aArray = FileReadToArray($FilePathNames)
_ArraySearch($aArray, $Input)
If Not @error Then
Msgbox(0, "Yeah", "Да, я знаю тебя, " & $Input)
Else
$File = FileOpen($FilePathNames)
$FileWrite = FileWrite($FilePathNames, $Input & @CRLF)
FileClose($FilePathNames)
Msgbox(0, "Noup", "Меня зовут Генадий, будем знакомы")
EndIf
If Not FileExists(@ScriptDir & "\QuestAns.txt") Then _FileCreate(@ScriptDir & "\QuestAns.txt")
Global $qFileRead = FileOpen(@ScriptDir & "\QuestAns.txt")
While 1
Global $Ask = InputBox("ASK", "Спроси что-нибудь.. Что ли")
Global $qArray = FileReadToArray($qFileRead)
_ArraySearch($qArray, $Ask)
If Not @error Then
While 1
Global $Line = FileReadLine($qFileRead)
Global $Quest = ""
GLobal $Ans = ""
If @error = -1 Then
ExitLoop
$String = StringSplit($Line, "|")
$Quest = $String[1]
$Ans = $String[2]
EndIf
WEnd
Else
$Ups = InputBox("Help", "Я не знаю, как ответить на твой вопрос, введите ответ на него, и я его запомню: ")
$FileWrite = FileWrite($qFileRead, $Ask & "|" & $Ups & @CRLF) ; Вся проблема тут(хотя я могу ошибаться)
EndIf
WEnd
Func Close()
FileClose($qFileRead)
Exit
EndFunc
Если есть какие-либо мысли, прошу помочь и "наставить на путь истинный" (Рад любым предложениям/исправлениям(
даже осуждениям