Подсчитать количество символов в каждой строке - 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

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


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

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

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