Подсчитать количество символов в каждой строке - VB
Формулировка задачи:
Дан текстовый файл.Подсчитать количество символов в каждой строке.
Решение задачи: «Подсчитать количество символов в каждой строке»
textual
Листинг программы
- Dim A As String
- Open App.Path & "\Test.txt" For Input As #1 'Тестовый файл
- Do While Not EOF(1)
- Line Input #1, A
- Debug.Print Len(A)
- Loop
- Close #1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
