Salvare

[bonaprogram]

Voglio sapere come faccio a togliere questa riga ognii volta che salvo con un richtextbox:

{\rtf1\ansi\ansicpg1252\deff0\deflang1040{\fonttbl {\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs17 \par }

P.S
RIcordateviche le pagine che provo a salvare sono in HTM e HTML.

X favore datemi una mano e da tre giorni che ci sono sopra.


GRAZIE

[vonkranz]

open "[nomefile].htm" for input as 1
open "temp.htm" for output as 2
do while not eof(1)
   line input#1,A$
   A$=replace(a$,"{\rtf1\ansi\ansicpg1252\deff0\deflang1040{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs17\par }","")
   print #2,A$
loop
close
kill "[nomefile].htm"
name  "temp.htm" as "[nomefile].htm"

[bonaprogram]

Mi da l'errore nel punto dove e scitto

A$=replace(a$," {\rtf1\ansi\ansicpg1252\deff0\deflang104
0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs17\par }","")
print #2,A$

[darkblOOd]

a) usare il tag CODE

b) specificare un titolo dei thread valido

c) postare il tipo di linguaggio usato

d) esiste un forum per i linguaggi di scripting

e) ciao

[xegallo]

Originariamente inviato da darkblOOd
a) usare il tag CODE

b) specificare un titolo dei thread valido

c) postare il tipo di linguaggio usato

d) esiste un forum per i linguaggi di scripting

e) ciao

ù

posso licenziarmi io?


cmq ha ragione

[darkblOOd]

Originariamente inviato da xegallo
ù

posso licenziarmi io?


cmq ha ragione

no, ogni tanto ti aiuto