Считывание массива с файла и нахождение максимума - 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)

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

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