Basic

1 отговора 96 прегледа
#1

Basic

Привет.

Има ли функция на Basic която във файл сменя даден стринг. Например имам файл в който пише : 'MY name is Ivan' и да го сменя например с : Vlado is ...

Отговор
в отговор на Someone #2

Re: Basic

Ако става въпрос за Бейсик за ДОС, няма такава функция. За Windows не знам дали има....

както и да е следният код ще го направи:

-------------------------------------------
searchstr$="My name is Ivan"
changestr$="Vlado is..."
myfile$="my_file.txt"

open myfile$ for input as#1 len=20000
do until eof(1)
line input#1, a$
checkit:
z=instr(a$, searchstr$)
if z > 0 then
mid$(searchstr$, z, len(searchstr$)) = changestr$
goto checkit
end if
loop
close#1
-----------------------------------------------

този код би трябвало да смени това което е зададено в searchstr$ с това което е зададено в changestr$, във файл зададен в myfile$
Файлът трябва да е текстов, за двоичен файл кодът трябва да е друг!
Може и да не работи, защото го пиша ей така наизуст, ако не работи, пиши ще го оправим!

Отговор