Прочитать все файлы в папке - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы