Прочитать информацию из файла

@Ingred · Регистрация: 09.02.2014

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

Здравствуйте, помогите пожалуйста переделать программу. Нужно чтобы строка бралась из файла, а выводила количество букв в текстбокс. Заранее спасибо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
' Подсчитать количество слов в тексте начинающихся с буквы "а или А"
 
  Dim Stroka As String
  Dim B As String
  Dim BLen As Long
  Dim BukvaL As String
  Dim fbeg As Long
  Dim kol As Long
 
  Stroka = TextBox1.Text
  Stroka = " " & Stroka
  B = "a" or "А"
  BLen = Len(B)
 
  fbeg = InStr(1, Stroka, B, vbTextCompare)
  Do While fbeg > 0
    BukvaL = Mid$(Stroka, fbeg - 1, 1)
    If BukvaL = " " Or BukvaL = "," Or BukvaL = "." Or BukvaL = ":" Or BukvaL = ";" Or BukvaL = "!" Or BukvaL = "?" Then kol = kol + 1
    fbeg = InStr(fbeg + BLen, Stroka, B, vbTextCompare)
  Loop
 
  TextBox2.Text = kol
End Sub

Добавлено через 19 часов 52 минуты

Добавлено через 43 минуты
Спасибо за помощь, смогла. Теперь другая проблема считает буквы, но в ответе на единицу меньше...Помогите, пожалуйста!

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
' Подсчитать количество слов в тексте начинающихся с буквы "a"
 
 
Dim B As String
Dim BLen As Long
Dim BukvaL As String
Dim fbeg As Long
Dim kol As Long
 
 
Dim S As String = My.Computer.FileSystem.ReadAllText("L:\3 семестр\ЯиМП\практика14\третья.txt", System.Text.Encoding.Default)
My.Computer.FileSystem.WriteAllText("L:\3 семестр\ЯиМП\практика14\третья.txt", S, False, System.Text.Encoding.Default)
 
S = " " & S
B = "a"
BLen = Len(B)
 
fbeg = InStr(1, S, B, vbTextCompare)
Do While fbeg > 0
BukvaL = Mid$(S, fbeg - 1, 1)
If BukvaL = " " Or BukvaL = "," Or BukvaL = "." Or BukvaL = ":" Or BukvaL = ";" Or BukvaL = "!" Or BukvaL = "?" Then kol = kol + 1
fbeg = InStr(fbeg + BLen, S, B, vbTextCompare)
Loop
 
TextBox1.Text = kol
End Sub

@Апострофф · 29.09.2014, 17:17

Ingred, определитесь для начала - с каким бэйсиком будем работать: этим или ЭТИМ?

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	29.09.2014, 17:17
	Ingred, определитесь для начала - с каким бэйсиком будем работать: этим или ЭТИМ? 0