[Iska]

По каким принципам?

[madmasles]

login,
Попробуйте примерно так.

Код:

Local $sFile = @ScriptDir & '\text.txt', $sTxt, $aTxt, $iUb, $sBeginStr = 'DKST||||20|', $sMiddleStr = '1', _
        $sDate = '01.01.2014', $sTime = '09:09:09', $iMaxStrLen = 254

$aTxt = StringRegExp(FileRead($sFile), '([\d\r\n]+)(?<=[\r\n])([ЁёА-Яа-я].+?)(?=[\r\n]|$)', 3)
$iUb = UBound($aTxt)
If (Not $iUb) Or (Mod($iUb, 2)) Then Exit 13
For $i = 0 To $iUb - 1 Step 2
    $sTxt &= StringFormat('%s%s||%s|%s|%s||%s|%s %s|\r\n', $sBeginStr, StringRegExpReplace($aTxt[$i], '[^\d]', ''), _
            StringLeft($aTxt[$i + 1], $iMaxStrLen), $aTxt[$i + 1], $sDate, $sMiddleStr, $sDate, $sTime)
Next
$sTxt = StringTrimRight($sTxt, 2)
ConsoleWrite($sTxt & @LF)

text.txt:

Код:

992
11301994
04
0000
130
Плата за выбросы
992
11301994
04
0000
130
Субвенции бюджетам городских округов на выполнение передаваемых полномочий субъектов Российской Федерации по выплате социального пособия на погребение, установленного статьей 10 Федерального закона от 12 января 1996 года № 8-ФЗ "О погребении и похоронном деле"
992
11301994
04
0000
130
Прочие субсидии бюджетам городских округов на реализацию подпрограммы "Модернизация автотранспортного комплекса Пензенской области (2011-2013 годы)" долгосрочной целевой программы "Повышение безопасности дорожного движения, развитие территориальной сети автомобильных дорог и транспортного комплекса Пензенской области на 2011-2014 годы" (кредиторская задолженность)

[login]

([ЁёА-Яа-я\h]+) »

А если в тексте встречаются спец символы, как быть? (кавычки, запятые,тире и тп)

[madmasles]

А если в тексте встречаются спец символы »

Вы пример дали, я с ним и работал.

[login]

Огромное вам спасибо за проделанную работу!
Но подскажите уж, пожалуйста, как сделать, чтобы обрабатывались все символы.

[madmasles]

login,
Дайте пример всех возможных строк - не чисел.

[login]

Субвенции бюджетам городских округов на выполнение передаваемых полномочий субъектов Российской Федерации по выплате социального пособия на погребение, установленного статьей 10 Федерального закона от 12 января 1996 года № 8-ФЗ "О погребении и похоронном деле"

Прочие субсидии бюджетам городских округов на реализацию подпрограммы "Модернизация автотранспортного комплекса Пензенской области (2011-2013 годы)" долгосрочной целевой программы "Повышение безопасности дорожного движения, развитие территориальной сети автомобильных дорог и транспортного комплекса Пензенской области на 2011-2014 годы" (кредиторская задолженность)

[madmasles]

login,
Я поменял код в своем первом сообщении.

На будущее - даете пример текста(файла) для обработки, включайте в него все возможные комбинации символов.

[login]

Спасибо. Все получилось.