Нахождения и распечатки строки максимальной длины - VB
Формулировка задачи:
Предварительно создать текстовый файл. Написать программу для нахождения и распечатки строки максимальной длины
Решение задачи: «Нахождения и распечатки строки максимальной длины»
textual
Листинг программы
with createobject("scripting.filesystemobject")
with .opentextfile(.getfile(wscript.arguments(0)))
while not .atendofstream
s=.readline
if len(s)>m then m=len(s):sm=s
wend
end with
end with
msgbox "Строка макс. длины" & vblf & sm