Прочитать все файлы в папке - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д