Подсчитать количество символов в каждой строке

@gosser92 · Регистрация: 16.04.2012

Студворк — интернет-сервис помощи студентам

Дан текстовый файл.Подсчитать количество символов в каждой строке.

@PAnT0P · 16.04.2012, 12:21

Сообщение от gosser92

Дан текстовый файл.Подсчитать количество символов в каждой строке.

Visual Basic
1
2
3
4
5
6
7
    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

SoftIce · 16.04.2012, 16:08

PAnT0P, ты проверял? Вот какую х выдаёт твоя программа:

@PAnT0P · 16.04.2012, 16:44

Сообщение от SoftIce

PAnT0P, ты проверял? Вот какую х выдаёт твоя программа:

И что тебя не устраивает? О_о

SoftIce · 16.04.2012, 20:41

Сообщение от PAnT0P

И что тебя не устраивает?

То, что в 5 строке 2 символа, а программа выдаёт 27.
Там вместе с пробелами 12.

И ты считаешь что это правильно?

@PAnT0P · 16.04.2012, 21:59

Сообщение от SoftIce

То, что в 5 строке 2 символа, а программа выдаёт 27.

Пробелы это тоже символы

Сообщение от SoftIce

Там вместе с пробелами 12.

И ты считаешь что это правильно?

А ты все таки проверь может там после 2 буквы тоже пробелы идут.

@artniki · 27.04.2012, 13:47

данная программа не считает пустую строку,как сделать чтобы при пустой строке,которая есть в любой части текстового документа,выводила 0???

SoftIce · 27.04.2012, 14:43

По мнению некоторых товарищей, пустых строк не бывает.
Пробел - символ, перевод строки - тоже символ.
А что такое "пустая строка" в твоём понимании?

@artniki · 27.04.2012, 15:09

Ну т.е в текстовом редокторе мы создадим строку,но ниего не напишем,даже пробела.

SoftIce · 27.04.2012, 15:14

Сообщение от artniki

не напишем,даже пробела

Нет символа - нет строки

@artniki · 27.04.2012, 16:50

а она есть).Можно поробывать Сравнить строку с ""пустым элементом через IF.И записать ответ в другой файл.

@PAnT0P · 27.04.2012, 18:00

Сообщение от artniki

данная программа не считает пустую строку,как сделать чтобы при пустой строке,которая есть в любой части текстового документа,выводила 0???

Все правильно она считает
1 рисунок тестовый файл (красные точки - это пробелы), 2 рисунок результат - в 19 строке пустая строка

@artniki · 27.04.2012, 18:48

29 строки всё равно нету

Добавлено через 31 минуту
И в чём разница между процедурами
1-Open App.Path & "\1.txt" For Input As #1
2-Open "Путь\1.txt" For Input As #1

App.Path Открывает файл в катологе или выполняет другую функцию?

@PAnT0P · 27.04.2012, 19:43

Сообщение от artniki

29 строки всё равно нету

Так ее и нету, я ж специально, управляющие коды сделал видимыми,
смотри 19 строку, там есть коды CrLf, а в 29 нету. Блокнот просто нумерует все строки не зависимо есть там что-то или нет

Сообщение от artniki

Добавлено через 31 минуту
И в чём разница между процедурами
1-Open App.Path & "\1.txt" For Input As #1
2-Open "Путь\1.txt" For Input As #1

App.Path Открывает файл в катологе или выполняет другую функцию?

в App.Path возвращает путь до папки откуда запущена программа, не зависимо от текущей рабочей папки
У меня вообще ВБ находится на диске U (флешка) представь, что всем бы пришлось править пути если б я писал U:\VB6\1.txt?
А так будет работать не зависимо от папки куда запишут

@artniki · 27.04.2012, 20:21

Ну в этом вопрос и заключался,существует ли эта строка.Благодарю.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@gosser92 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 20

	Подсчитать количество символов в каждой строке 16.04.2012, 11:41. Показов 2747. Ответов 14 Метки нет (Все метки) Дан текстовый файл.Подсчитать количество символов в каждой строке. 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	16.04.2012, 16:08
	PAnT0P, ты проверял? Вот какую х выдаёт твоя программа: Миниатюры 0

@artniki 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 20
	27.04.2012, 13:47
	данная программа не считает пустую строку,как сделать чтобы при пустой строке,которая есть в любой части текстового документа,выводила 0??? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	27.04.2012, 14:43
	По мнению некоторых товарищей, пустых строк не бывает. Пробел - символ, перевод строки - тоже символ. А что такое "пустая строка" в твоём понимании? 0

@artniki 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 20
	27.04.2012, 15:09
	Ну т.е в текстовом редокторе мы создадим строку,но ниего не напишем,даже пробела. 0

@artniki 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 20
	27.04.2012, 16:50
	а она есть).Можно поробывать Сравнить строку с ""пустым элементом через IF.И записать ответ в другой файл. 0

@artniki 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 20
	27.04.2012, 18:48
	29 строки всё равно нету Добавлено через 31 минуту И в чём разница между процедурами 1-Open App.Path & "\1.txt" For Input As #1 2-Open "Путь\1.txt" For Input As #1 App.Path Открывает файл в катологе или выполняет другую функцию? 0

@artniki 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 20
	27.04.2012, 20:21
	Ну в этом вопрос и заключался,существует ли эта строка.Благодарю. 0