Удалить все элементы символьного файла, расположенные после первого символа пробела - 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
                        

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

13 голосов , оценка 3.846 из 5

Похожие ответы