Серый форум — АНК: Добавить текст в файл

Re: АНК: Добавить текст в файл

null@example.com (Bobby) — Fri, 24 Jun 2011 07:40:14 +0000

Еще раз спасибо, teadrinker!

Re: АНК: Добавить текст в файл

null@example.com (teadrinker) — Wed, 22 Jun 2011 17:38:50 +0000

Считываем текст из файла в переменную с помощью FileRead, проводим разбор, как в примере выше, создаём новый файл из полученного текста (FileAppend).

Re: АНК: Добавить текст в файл

null@example.com (Bobby) — Wed, 22 Jun 2011 10:12:20 +0000

Спасибо, teadrinker! Только хотелось бы удалять в текстовом файле.

Re: АНК: Добавить текст в файл

null@example.com (teadrinker) — Wed, 22 Jun 2011 08:15:37 +0000

String =
(
Первая строка
Вторая строка
Третья строка
Четвертая строка
)

; удаляем строчку "Третья строка"
Loop, parse, String, `n, `r
   NewString1 .= A_LoopField = "Третья строка" ? "" : A_LoopField . "`n"
   
; удаляем последний перенос строки, если существует:
NewString1 := RegExReplace(NewString1, "(.*)\R$", "$1")  
MsgBox, % NewString1

; удаляем вторую строку
Loop, parse, String, `n, `r
   NewString2 .= A_Index = 2 ? "" : A_LoopField . "`n"
   
; удаляем последний перенос строки, если существует:
NewString2 := RegExReplace(NewString2, "(.*)\R$", "$1")  
MsgBox, % NewString2

Re: АНК: Добавить текст в файл

null@example.com (Bobby) — Wed, 22 Jun 2011 06:34:02 +0000

А как удалить определенную строку, т.е. строку с определенным текстом или номер строки?

Re: АНК: Добавить текст в файл

null@example.com (Елена) — Tue, 29 Mar 2011 17:50:41 +0000

Всё оказалось гораздо проще. Спасибо!

Re: АНК: Добавить текст в файл

null@example.com (YMP) — Tue, 29 Mar 2011 14:52:25 +0000

Text =
(
Первая строка
Вторая строка
Третья строка
Четвёртая строка
Пятая строка
)

Sort, Text

MsgBox, %Text%

Re: АНК: Добавить текст в файл

null@example.com (Елена) — Tue, 29 Mar 2011 14:21:45 +0000

Всплыл ещё один подводный камень.
Теперь необходимо получившийся файл .txt , Каждую строку отсортировать по алфавиту (строк может быть больше 100) длиною максимум 50 знаков
Догадываюсь ,что надо загнать его в переменную (FileRead)и через RegExReplace с ним что-то проделать.
Но не могу этого сделать.
ПОМОГИТЕ !!!

Re: АНК: Добавить текст в файл

null@example.com (YMP) — Sat, 26 Mar 2011 15:00:44 +0000

File = D:\Temp\Stih.txt
Str1 = Я смотрю широкими глазами.
Str2 = В Персии такие ж точно куры,

Loop, Read, %File%
{
    If (PrevLine = Str1) and (A_LoopReadLine != Str1)
        Text .= Str2 . "`n"
    Text .= A_LoopReadLine . "`n"
    PrevLine := A_LoopReadLine
}

FileDelete, %File%
FileAppend, %Text%, %File%

MsgBox, Готово.

Re: АНК: Добавить текст в файл

null@example.com (Елена) — Sat, 26 Mar 2011 14:23:53 +0000

Нет, предыдущую надо оставить как и все одинаковые и после неё дописать.

Re: АНК: Добавить текст в файл

null@example.com (YMP) — Sat, 26 Mar 2011 09:16:18 +0000

Что значит "выбрать последнюю строку"? Предыдущие убрать или оставить?

Re: АНК: Добавить текст в файл

null@example.com (Елена) — Sat, 26 Mar 2011 09:10:12 +0000

Это последняя ситуация какая может быть

Re: АНК: Добавить текст в файл

null@example.com (YMP) — Sat, 26 Mar 2011 09:08:39 +0000

Странная какая-то ситуация. Какой во всём этом смысл? И какие ещё бывают ситуации? Просто неохота зря код писать.

Re: АНК: Добавить текст в файл

null@example.com (Елена) — Sat, 26 Mar 2011 08:30:22 +0000

Ещё раз спасибо "YMP" всё работает , но бывает такая ситуация, когда строка повторяется несколько раз(Я смотрю широкими глазами.), и надо выбрать последнюю строку(Я смотрю широкими глазами.) и после неё добавить строчку - В Персии такие ж точно куры, т.е 6 стр

Тихий ветер. Вечер сине-хмурый.
Я смотрю широкими глазами.
Я смотрю широкими глазами.
Я смотрю широкими глазами.
Я смотрю широкими глазами.
Как у нас в соломенной Рязани.

Re: АНК: Добавить текст в файл

null@example.com (YMP) — Sat, 26 Mar 2011 08:16:09 +0000

File = D:\Temp\Stih.txt
Str = В Персии такие ж точно куры,

Loop, Read, %File%
{
    If A_Index = 3
        Text .= Str . "`n"
    Text .= A_LoopReadLine . "`n"
}

FileDelete, %File%
FileAppend, %Text%, %File%

MsgBox, Готово.