VBNet - Форум - Как объединить много текстовых файлов в один

Вопрос: Как объединить много текстовых файлов в один Добавлено: 27.04.11 12:46

Автор вопроса: Pitkin

Всем доброго времени суток.

Товарищи я в скриптах не силен, уже перелопатил все мануалы по vbscript, но ничего не нашел
Как объединить несколько файлов, тут как раз все понятно. Но понадобилось объеденить около 200 маленьких текстовых файлов в один, а писать в скрипте имя каждого файла как то не сподручно. Подскажите, пожалуйста, кто может, как объединить все файлы в один. Буду очень признателен.

Вот код для объединения 2 файлов, что надо ковырять, чтобы много файлов объединить
Call OB_txt "C:\tmp\1.txt", "C:\tmp\2.txt", "C:\tmp\3.txt") 'запуск функции

Function OB_txt(in_fail1, in_fail2, out_file)
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(in_fail1)
Set File2 = FSO.GetFile(in_fail2)

Set TextStream = File.OpenAsTextStream(1)
Set TextStream2 = File2.OpenAsTextStream(1)

Set out_file = FSO.OpenTextFile(out_file, ForAppending, True) ' создали обьединеный файл
str_f1 = TextStream.ReadAll() ' считали в переменную первый файл
str_f2 = TextStream2.ReadAll()' считали в переменную второй файл

out_file.WriteLine ("Это первый файл")
out_file.WriteLine (str_f1) ' записали в новый файл первый
out_file.WriteLine ("Это Второй файл")
out_file.WriteLine (str_f2) ' записали в новый файл второй

TextStream.Close
TextStream2.Close

out_file.Close

Set FSO = Nothing

End Function
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #1	Добавлено: 27.04.11 14:15
	Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") JoinTXT "C:\temp" Sub JoinTXT(strFolderPath) Dim objFolder, objFile, strTempText, strAllText If objFSO.FolderExists(strFolderPath) Then Set objFolder = objFSO.GetFolder(strFolderPath) For Each objFile In objFolder.Files strExt = LCase(objFSO.GetExtensionName(objFile.Path)) If (strExt = "txt") Or (strExt = "log") Then strTempText = ReadFile(objFile.Path) If strTempText <> "" Then strAllText = strAllText & strTempText & vbCrLf & "===== " & objFile.Name & " =====" & vbCrLf End If 'objFile.Delete True ' удалить файл End If Next End If Set objFile = objFSO.CreateTextFile(strFolderPath & "\AllTextFiles.txt") objFile.Write strAllText objFile.Close End Sub MsgBox "выход" Set objFSO = Nothing Wscript.quit Function ReadFile(strTempFilePath) On Error Resume Next Dim objTempFile, strText Set objTempFile = objFSO.OpenTextFile(strTempFilePath, 1, False) strText = objTempFile.Readall objTempFile.Close ReadFile = strText End Function Ответить

Номер ответа: 2 Автор ответа: Pitkin Вопросов: 1 Ответов: 3	Профиль \| \| #2	Добавлено: 27.04.11 14:36
	Урра! спасибо Вам огромное, не хочу показаться назойливым, вообще из полученного текстового файла возможно с помощью vbscript получить xls файл, чтобы строки были впоследствии были представлены в виде столбцов. Ну то есть полученный файл выглядит примерно так: 142460066 387 180 20110426 142460100 395 207 20110426 Строки это будущие столбцы, как думаете получится это сделать? Ответить

Номер ответа: 3 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #3	Добавлено: 27.04.11 15:03
	с excel'ем не работал а вообще, возможно все, было бы желание Ответить

Номер ответа: 4 Автор ответа: Pitkin Вопросов: 1 Ответов: 3	Профиль \| \| #4	Добавлено: 27.04.11 15:06
	Спасибо, огромное, буду пробовать Ответить

Номер ответа: 5 Автор ответа: smgog Вопросов: 0 Ответов: 2	Web-сайт: http://true-style.ru/ Профиль \| \| #5	Добавлено: 01.05.11 22:17
	Спасибо и мне помогло Ответить

Страница: 1 |