Считывание массива с файла и нахождение максимума - VB
Формулировка задачи:
здравствуйте, мне нужно считать с файла, который содержит строки(одно слово в строке), матрицу. подсчиать количество букв в каждой строке и найти самую длиную строку.
я написала, но для больших файлов это не подходит и еще максимум не правильно находится. зарание спасибо
Sub Masiv()
Dim mass() As String
Dim i As Long
Dim num As Byte
Dim x As Integer
Dim max As Integer
num = FreeFile
Open "D:\1.txt" For Input As #num
While Not EOF(num)
i = i + 1
ReDim Preserve mass(i)
Line Input #num, mass(i)
MsgBox mass(i) & " Длина " & len(mass(i))
Wend
For x = 0 To i 'находим самую длиную строку
max = len(mass (1))
If max < len(mass(i)) Then max = len(mass(i))
next x
MsgBox "максимальная длина " & max
Close num
End Sub
Решение задачи: «Считывание массива с файла и нахождение максимума»
textual
Листинг программы
Dim File As String, CF As String File = "D:\1.txt" Open File For Binary As #1 CF = Input(FileLen(File), 1) 'загpyзить в пеpеменyю CF вcе cодеpжимое файла Close #1 M = Split(CF, VbNewLine)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д