Прочитать все файлы в папке - VB
Формулировка задачи:
Есть текстовые файлы.
Программы детали описание геометрии, в них есть определенные строчки.
Алгоритм раскроя только по длинне.
текстовые файлы имеют описание конфигурации детали количество и её размеры.
так вот надо прочитать все файлы в папке.
найти строчку максимальной длинны и от неё плясать дополнять текст конфигурации к более меньшей детали ну естественно учитывать размер заготовки.
т.е как можно взять кусок текста и в него ещё добавит несколько текстовых файлов с удалением ненужного и расчетом нужного при чем если в том тестовом файле учитывать строчку кол-во деталей.
в двух словах
бла бла бла
бла бла бла
длина заготовки =
длина отхода =
длина использованного =
бла бла бла
бла бла бла
деталь 1
длина 500
называние - деталь 1
количество - 10
бла бла бла
бла бла бла
вроде всё просто в ручную делаю, только хочется автоматизировать вот учусь..
Решение задачи: «Прочитать все файлы в папке»
textual
Листинг программы
Dim objFS, objItem, objFile, strPath, arrTemp, strTemp, intTemp, strList, i
strPath = "d:\"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) Then
For Each objItem In objFS.GetFolder(strPath).Files
If LCase(Right(objItem.Name, 4)) = ".txt" Then
Set objFile = objFS.OpenTextFile(objItem.Path, 1)
arrTemp = Split(objFile.ReadAll, vbNewLine)
objFile.Close
For i = 0 To UBound(arrTemp)
If Len(arrTemp(i)) > intTemp Then intTemp = Len(arrTemp(i)): strTemp = arrTemp(i)
Next
strList = strList & "Файл: " & objItem.Name & vbNewLine & _
"Макс. длина строки: " & CStr(intTemp) & vbNewLine & _
"Строка: " & strTemp & vbNewLine & "---" & vbNewLine
intTemp = 0: strTemp = vbNullString
End If
Next
Erase arrTemp: Set objFile = Nothing: Set objItem = Nothing
WScript.Echo strList
Else
WScript.Echo "Не найден путь " & strPath
End If
Set objFS = Nothing
WScript.Quit 0