Flasher
|
 Posted: Sun Oct 09, 2011 22:18 Post subject: |
 |
|
Короче, мой мозг ничего не понимает...
Сделал для файлов с разным числом строк.
| Code: | ' Построчное склеивание текстовых файлов
' Параметры: <список файлов> <путь к файлу-получателю>
' Пример: %L "%TСписок_отсортированных_ссылок.txt"
'======================================================
With CreateObject("Scripting.FileSystemObject")
Set TF = .OpenTextFile(WScript.Arguments(0), 1)
On Error Resume Next
For Each M in Split(TF.ReadAll, vbNewLine)
A = Ubound(Split(.OpenTextFile(M).ReadAll, vbNewLine))
If Max < A Then Max = A
Next
TF.Close
n = 0
Set List = .OpenTextFile(WScript.Arguments(1), 8, True)
Do While n <= Max
Set TF = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not TF.AtEndOfStream
F = TF.ReadLine
If F > vbNullString Then
If .FileExists(F) Then
L = Split(.OpenTextFile(F).ReadAll, vbNewLine)
If Trim(L(n)) <> "" Then List.WriteLine L(n)
End If
End If
Loop
TF.Close
n = n + 1
Loop
List.Close
End With |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
