Basic
1 отговора
96 прегледа
Basic
Привет.
Има ли функция на Basic която във файл сменя даден стринг. Например имам файл в който пише : 'MY name is Ivan' и да го сменя например с : Vlado is ...
Има ли функция на Basic която във файл сменя даден стринг. Например имам файл в който пише : 'MY name is Ivan' и да го сменя например с : Vlado is ...
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$
Файлът трябва да е текстов, за двоичен файл кодът трябва да е друг!
Може и да не работи, защото го пиша ей така наизуст, ако не работи, пиши ще го оправим!
както и да е следният код ще го направи:
-------------------------------------------
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$
Файлът трябва да е текстов, за двоичен файл кодът трябва да е друг!
Може и да не работи, защото го пиша ей така наизуст, ако не работи, пиши ще го оправим!