Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова.

[KorsD]

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

[EducatedFool]

Ввиду возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

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

[KorsD]

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

[Sasha_Smirnov]

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

если… массив то тогда всё ясно

Sub File_to_ArrayOfSymbols()    ' создаёт массив m из текстового файла
Dim element As Variant, massivB() As Byte, i As Long, k As Long
Dim f As Variant:     f = FreeFile ' идентификатор файла
Dim s As String                 ' строка из символов txt-файла
Dim m() As String * 1           ' массив из символов txt-файла
      
        Open "C:\Users\мария\Desktop\1.txt" For Input As #f
        
        Input #f, s ' загрузка файла f в строку s
        Close #f
    
    massivB = s     ' загрузка строки в массив байтов

ReDim m(0 To UBound(massivB) \ 2) ' символов будет вдвое меньше чем байтов
    
        For Each element In massivB
            m(i) = ChrW(256 * massivB(k + 1) + massivB(k))
'            MsgBox "m(" & i & ") = " & m(i)
            i = i + 1
            k = k + 2
            If k + 1 > UBound(massivB) Then Exit For
        Next
End Sub

Путь к файлу, разумеется, подставьте свой.