Любой язык - [решено] Как разбить одну строку на много строк

KooDI · Конфигурация компьютера

gora, огромное вам спасибо за код, и за кнопку, все работает но есть одно но, код с большими файлами не работает, он создает файл с черточкой "-", и все.
Думал сначала что в строке попался какой то символ, по пробовал взять приведенный мной пример строки , продублировав ее до 11844 символов в строке, и код тоже не работал.

gora · Конфигурация компьютера

Цитата KooDI:

код с большими файлами не работает »

Ограничение на длину значения переменной в CMD - 8кБ. Значит надо переходить на другой язык, например, на vbs.
На базе примера от Iska

Скрипт KooDI.vbs:

Код:

If WScript.Arguments.Count < 1 Then WScript.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
F = WScript.Arguments.Item(0)
Set rd_file = FSO.OpenTextFile(F, 1,, -2)
strLine = rd_file.ReadAll
rd_file.Close
Buffer = ""
For Each elem In Split(strLine, ",")
	If elem <> "" Then Buffer = Buffer & Abs(elem) & Chr(13) & Chr(10)
Next
Set wr_file = FSO.OpenTextFile(FSO.GetParentFolderName(F) & "\" & FSO.GetBaseName(F) _
		& "_New." & FSO.GetExtensionName(F), 2, True)
wr_file.Write Buffer
wr_file.Close
WScript.Quit

Код кнопки на панели ТС:

Код:

TOTALCMD#BAR#DATA
e:\Temp\KooDI.vbs
%P%N
%commander_path%\Wcmicons.dll,67
Строка в столбик

1
-1

KooDI · Конфигурация компьютера

gora, cпасибо вам огромное, за ваше время и труд

dizel-82 · Отправлено: **11:49, 27-06-2013** | #14

Люди подскажите новичку, вот вы тут выкладываете какието коды, а я не знаю как ими пользоватся.Куда их вставлять. Мне вот тоже нужно разделить строки. Есть база в (блокноте),там имейл адреса идут в строку,через запятую,ну гдето строк 20 примерно,мне нужно чтобы каждый адрес был в отдельной строке,тоесть в столбик. Спасибо.