Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] кол-во символов

Автор: levakan 19.1.2009, 15:59

как посчитать кол-во символов в файле.я непонимаю smile

Написать программу, подсчитывающую число символов в текстовом файле, чей код меньше или равен 80;
Вывести на экран все прописные латинские символы c помощью их кодов ASCII;
если есть возможность с подробными комментарими
в независимости от результата спасибо!!!

Автор: ТоляМБА 19.1.2009, 16:07

levakan, читай функции работы с текстовыми файлами, текстовые функции, циклы. И будет тебе щастье!

Добавлено через 2 минуты и 2 секунды
А, ну и само собой условные операторы smile

Автор: Akina 19.1.2009, 19:03

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: kapbepucm 20.1.2009, 13:14

Код

Public Sub Test()
  Const MyFile As String = "путь\MyFile.txt"
  Dim MyChar As String * 1
  Dim i As Long
  Dim MyString1 As String
  Dim MyString2 As String
  Open MyFile For Random As #1 Len = 1
  For i = 1 To FileLen(MyFile)
    Get 1, i, MyChar
    If Asc(MyChar) <= 80 Then MyString1 = MyString1 & MyChar
    If (Asc(MyChar) >= 97) And (Asc(MyChar) <= 122) Then MyString2 = MyString2 & MyChar
  Next i
  Close #1
  MsgBox "число символов в текстовом файле, чей код меньше или равен 80: " & Len(MyString1)
  MsgBox "все прописные латинские символы в этом файле: " & MyString2
End Sub

Автор: kapbepucm 20.1.2009, 13:43

Цитата(levakan @ 19.1.2009, 15:59

)

Вывести на экран все прописные латинские символы c помощью их кодов ASCII;

Это те символы, которые обнаружатся в файле или вообще- вывести все, которые существуют?