|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Как с помощью FileReadLine прочитать последнюю строчку файла? |
|
|
Как с помощью FileReadLine прочитать последнюю строчку файла?
|
Старожил Сообщения: 379 |
Профиль | Отправить PM | Цитировать Цитата из справки:
Помогите пожалуйста отразить это в коде... |
||
------- Отправлено: 18:05, 15-01-2010 |
Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать В примере к этой функции всё написано ...
FileReadLine - Возвращаемое значение: Значение @error равное 0 означает успешное выполнение, -1 - достигнут конец файла 1 другие ошибки выполнения. Если @error = -1 то это была последняя строка |
Отправлено: 18:13, 15-01-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 307
|
Профиль | Отправить PM | Цитировать Цитата sashadeg:
line [optional] The line number to read. The first line of a text file is line 1 (not zero), last line is -1. |
|
------- Отправлено: 18:25, 15-01-2010 | #3 |
Старожил Сообщения: 379
|
Профиль | Отправить PM | Цитировать Цитата FlatX007:
|
|
------- Отправлено: 18:27, 15-01-2010 | #4 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата sashadeg:
Хотя можно и так попробовать: $sFile = @DesktopDir & "\test.txt" $sLine = StringRegExpReplace(StringStripWS(FileRead($sFile), 2), "(?s:.*)[\r\n]+(.*)$", "\1") ConsoleWrite($sLine) |
||
------- Отправлено: 19:09, 15-01-2010 | #5 |
Старожил Сообщения: 379
|
Профиль | Отправить PM | Цитировать Перезагрузив комп, у меня стало возвращать при "-1" всякую ерунду (типа когда кириллицу не поддерживает) Хотя у меня русские символы отсутствуют... =(
|
------- Отправлено: 13:49, 16-01-2010 | #6 |
Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать #include <Array.au3> $iEndString = _ReadString(@ScriptDir & '\' & '1.txt') If Not (@error) Then MsgBox(64, "", $iEndString) Func _ReadString($sFfile = "") Local $avArray[1] $sfile = FileOpen($sFfile, 0) If $sfile = -1 Then SetError(1, 0, 0) Return 0 EndIf While 1 $line = FileReadLine($sfile) If @error = -1 Then Return UBound($avArray) - 1 If $line <> "" Then _ArrayAdd ($avArray, $line) Wend FileClose($sfile) EndFunc |
Отправлено: 01:12, 17-01-2010 | #7 |
Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать |
Отправлено: 01:45, 17-01-2010 | #8 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата FlatX007:
#include <File.au3> $iCount = _FileCountLines(@DesktopDir & '\File.txt') MsgBox(64, "", FileReadLine(@DesktopDir & '\File.txt', $iCount)) Это по сути тот же вариант что я предложил выше, и тот вариант ещё быстрее (с точки зрения обработки). |
|
------- Отправлено: 13:47, 17-01-2010 | #9 |
Новый участник Сообщения: 17
|
Профиль | Отправить PM | Цитировать #include <GUIConstantsEx.au3>
local $msg,$x1,$x2 guicteate ('',300,300) $x1=10 $x2=filereadline (@Scriptdir & '\xxx.txt',$x1) guictrlcteatelabel ($x2,0,0) guisetstate () while 1 $msg=guigetmsg() select case $msg=$gui_event_close exitloop wend всё вот такой простенький скрипт может где-то ошибки есть я ведь с памяти писал $X1=10! 10 это у нас номер строки в файле тоисть этот скрип прочитает и выведет 10 строку хочень поставь for n=1 do и так далее |
Последний раз редактировалось wwe, 01-02-2010 в 20:54. Причина: исправление Отправлено: 20:52, 01-02-2010 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Как прочесть из файла .txt только первую строчку текста. | Sdib121 | Скриптовые языки администрирования Windows | 6 | 15-08-2009 14:26 | |
CMD/BAT - Как прочитать с файла определенную строку | Voshal | Скриптовые языки администрирования Windows | 1 | 27-05-2009 08:24 | |
Любой язык - [решено] Как с помощью Inf-файла запустить программу с неизвестного привода | S.T.R.E.L.O.K. | Скриптовые языки администрирования Windows | 3 | 17-05-2009 10:49 | |
Delphi - Delphi | Прочитать "Безопасность" файла. | Crowner | Программирование и базы данных | 3 | 08-09-2006 13:59 | |
Где я могу прочитать о систаксисе файла TXTSETUP.SIF | RasKolbas | Автоматическая установка Windows 2000/XP/2003 | 3 | 03-10-2005 20:49 |
|