Что нового
Автор:
Фильтры

Как изменить конец всех строк на определенное значение?

V

Vini

Новичок
Сообщения
27
Репутация
0
Всем привет!
Подскажите, пожалуйста, как реализовать следующую задачу:
Имеется текстовый файл вида:

Строка1:...
Строка2:...
Строка3:a1;b1;c1;...y1;z1;
....
СтрокаN:aN;bN;cN;...yN;zN;

строки с третьей по N-ную представляют собой набор чисел, разделенных символом ;, количество строк всегда разное. Так вот необходимо все числа z (т.е. последние числа каждой строки) заменить на какое-то одинаковое значение. При этом первые две строки не трогать.
Если это поможет, то N=12

Спасибо!
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
Re: [Данные, строки] Замена текстка в строках

Vini,
Дайте пример файла.
 
Автор
V

Vini

Новичок
Сообщения
27
Репутация
0
Re: [Данные, строки] Замена текстка в строках

[box title=TitleBox]1
13
1;21.01.13;06:59:54;55;1;9223;3;;0;0;0;30;
1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.000;15;[/box]
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
Re: [Данные, строки] Замена текстка в строках

Vini,
Попробуйте так.
Код: 
$sText = '1' & @CRLF & _
		'13' & @CRLF & _
		'1;21.01.13;06:59:54;55;1;9223;3;;0;0;0;30;' & @CRLF & _
		'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.000;15;' & @CRLF & _
		'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.001;16;' & @CRLF & _
		'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.002;17;' & @CRLF & _
		'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.003;18;' & @CRLF & _
		'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.004;19;' & @CRLF & _
		'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.005;20;'

$sEnd = ''
$sReplace = 25
If StringRight($sText, 2) <> @CRLF Then $sEnd = @CRLF
$sText &= $sEnd
$sNewText = StringRegExpReplace($sText, '(?s)(.+?;)\d+(;\r\n).*?', '${1}' & $sReplace & '$2')
$iCount = @extended / 2
If $sEnd Then $sNewText = StringTrimRight($sNewText, 2)
ConsoleWrite('Кол-во замен :' & $iCount & @LF)
ConsoleWrite('Новый текст: ' & @LF)
ConsoleWrite($sNewText & @LF)
 
joiner

joiner

Модератор
Локальный модератор
Сообщения
3,557
Репутация
628
Re: [Данные, строки] Замена текстка в строках

или так
Код: 
#include <File.au3>
$CountLines = _FileCountLines('1.txt')
For $i = 3 To $CountLines
	$string = FileReadLine('1.txt',$i)
	$count_lines = StringLen($string)
	$st_r = StringRight($string,3)
	$new_string = StringReplace($string,$st_r,'312;')
	_FileWriteToLine('1.txt',$i,$new_string,1)
Next

меняет последние три символа в строке на одинаковое значение
 
G

gregaz

AutoIT Гуру
Сообщения
1,166
Репутация
299
Re: [Данные, строки] Замена текстка в строках

Вариант :
Код: 
$sText = "1"  & @CRLF & _ 
"13"  & @CRLF & _ 
"1;21.01.13;06:59:54;55;1;9223;3;;0;0;0;30;"  & @CRLF & _ 
"1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.000;15;"  & @CRLF & _ 
""  & @CRLF & _ 
""  & @CRLF & _ 
""  & @CRLF & _ 
""
$iReplace=1000
$sPatern = "(.+;)\d*(;)"
$sResult = StringRegExpReplace( $sText, $sPatern,  '${1}' & $iReplace & '${2}' )
MsgBox(4096, ' Test Result', $sResult)
 
S

sngr

AutoIT Гуру
Сообщения
1,011
Репутация
409
Re: [Данные, строки] Замена текстка в строках

Код: 
$zam=53
$str='1'& @CRLF & _
'13'& @CRLF & _
'1;21.01.13;06:59:54;55;1;9223;3;;0;0;0;30;'& @CRLF & _
'1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.000;15;'& @CRLF
MsgBox(32,'',StringRegExpReplace($str,'(\d+)(?=;\r\n)',$zam))
 
G

gregaz

AutoIT Гуру
Сообщения
1,166
Репутация
299
Re: [Данные, строки] Замена текстка в строках

А если предположить возможность присутствия пустого значения (";;") , то лучше :
(хотя не должно быть )
Код: 
$sText = "1"  & @CRLF & _ 
"13"  & @CRLF & _ 
"1;21.01.13;06:59:54;55;1;9223;3;;0;0;0;30;"  & @CRLF & _ 
"1;21.01.13;07:14:37;11;1;9223;3;4292;1;1.50;1.000;15;"  & @CRLF & _ 
";;"
$iReplace=1000
;$sPatern = "(.+;)\d*(;)" ; если вариант ";;" невозможен
$sPatern = "(.*;)\d*(;)" ; Иначе :
$sResult = StringRegExpReplace( $sText, $sPatern,  '${1}' & $iReplace & '${2}' )
MsgBox(4096, ' Test Result', $sResult)



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

sngr

А если последняя строка без @CRLF ? Придется
Код: 
;MsgBox(32,'',StringRegExpReplace($str,'(\d+)(?=;\r\n)',$zam))
MsgBox(32,'',StringRegExpReplace($str & @CRLF ,'(\d+)(?=;\r\n)',$zam))
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Re: [Данные, строки] Замена текстка в строках

Vini
Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.
Нажмите, чтобы раскрыть...


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Данные, строки] Замена текстка в строках" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.
 
Автор
V

Vini

Новичок
Сообщения
27
Репутация
0
joiner
у меня неизвестно какое количество символов будет в последнем числе. Но спасибо за помощь!
Всем спасибо за помощь!
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
BlagoYar Элементы GUI Изменить фон под BITMAP кнопкой Общие вопросы по AutoIt 13
H Как изменить расскладку клавиатуры во время работы скрипта? Общие вопросы по AutoIt 6
W Изменить размер окна Общие вопросы по AutoIt 1
C Как изменить файл добавив строки в конец файла? Общие вопросы по AutoIt 4
T [Данные, строки] изменить конец строки в файле тхт Общие вопросы по AutoIt 5
Похожие темы
Элементы GUI Изменить фон под BITMAP кнопкой
Как изменить расскладку клавиатуры во время работы скрипта?
Изменить размер окна
Как изменить файл добавив строки в конец файла?
[Данные, строки] изменить конец строки в файле тхт
Верх