Что нового

[Данные, строки] Сортировка символов в строках текстового файла

A

at

Гость
Версия AutoIt: 3.3.12
Прошу помочь, любой подсказкой или показать на примере.
Описание:
Нужно из файла Test1 переписать в файл Test2 первые 8 цифр каждой строки.
Если в Test1 в любой строке в первые 8 цифр попадают буквы или другие символы - мы не записываем эту строку в Test2.

Что-то подобное попытался изобразить сам, поможет понять о чем я спросил.
Код:
Global $s_File = @ScriptDir & '\Test1.txt'
Global $v_Path_1 = @ScriptDir & '\Test2.txt'
$h_File = FileOpen($s_File, 0)
While 1
	If StringRegExp ( $h_File, '[0-9A-Za-z]') Then
    _ReadLine ()
	EndIf
WEnd
Func _ReadLine ()
	$s_Line = FileReadLine($h_File)
	$s_Text = StringMid ($s_Line, 1, 8)
	$s_FileWrite = FileOpen ($v_Path_1, 1)
	$s_Write = FileWriteLine ($v_Path_1, $s_Text)
EndFunc

За ранее всем спасибо!
 

Вложения

  • Test1.txt
    513 байт · Просмотры: 3

InnI

AutoIT Гуру
Сообщения
4,613
Репутация
1,299
Код:
#include <File.au3>
$Text = FileRead("Test1.txt")
$Res = StringRegExp($Text, "(?m)^\d{8}", 3)
_FileWriteFromArray("Test2.txt", $Res)
 
Верх