Как через vbs разбить текстовый файл на части по заданному количеству строк

Guest Гость	#1 15.11.2012 14:20:50 Хочется сделать файл *.vbs, запустив который разбивает файл на файлы по определенному количеству строк

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#2 15.11.2012 14:27:05 читать построчно и записывать в другой файл. по достижении нужных значений менять фал записи Живи и дай жить..

Guest Гость	#3 15.11.2012 14:29:18 Можете како либо пример скинуть, чтобы я по аналогии смог его переделать под свой вариант?

Hugo

Пользователь

Сообщений: 26326 Регистрация: 22.12.2012

15.11.2012 14:54:20

Вот на переделку:

Set fso = CreateObject("Scripting.FileSystemObject")
MyPath = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName)) - (Len(WScript.ScriptName)))

Set ts = fso.OpenTextFile(MyPath & "ExportProducts1.csv", 1)
arrstr = Split(ts.ReadAll, vbCrLf)
ts.Close

Set outFile = fso.CreateTextFile(MyPath & "ExportProducts2.csv")

For i = 0 To UBound(arrstr)
If Len(arrstr(i)) Then
a = Split(arrstr(i), ";", 4)
s = a(0) & "/" & a(1) & "/" & a(2)
outFile.WriteLine s & Mid(arrstr(i), Len(s) + 1)
End If
Next

outFile.Close

MsgBox "OK", vbInformation

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 15.11.2012 17:48:35 Тут еще похожее обсуждалось: http://forum.msexcel.ru/index.php/topic,8683.0.html Я сам - дурнее всякого примера! ...

Читают тему