Удалить все элементы символьного файла, расположенные после первого символа пробела - VB
Формулировка задачи:
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела, включая и этот пробел.
Решение задачи: «Удалить все элементы символьного файла, расположенные после первого символа пробела»
textual
Листинг программы
- Sub Task(fname as string)
- fi%=FreeFile
- Open fname for Binary Access Read as #fi%
- ll&=Lof(fi%)
- Buf$=Space$(ll&)
- get #fi%,,Buf$
- Close #fi%
- Kill fname
- fo%=FreeFile
- Open fname for binary access write as #fo%
- k&=Instr(Buf$," ")
- Buf$=left$(Buf$,k&-1)
- Put #fo%,,Buf$
- Close #fo%
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
