replace

[zoccolo]

Ciao,
ma se uso una variabile con all'interno memorizzato del testo e poi faccio un replace di una sua parte , non posso poi riaggiornare quella variabile con un'altro pezzo di stringa?

[optime]

certo che puoi riaggiornare un pezzo di stringa con una parte di una variabile che contiene del testo dopo aver controllato che l'estrazione del pezzo di stringa vada a finire in un testo contenuto in una variabile.































sono stato spiegato?

[zoccolo]

scusa mi sono spiegato male effettivamente.
Allora Leggendo da questo benedettisimo file di testo ogni riga ha dei valori differenti
Nella variabile corpo viene memorizzato il settaggio della rigada scrivere dentro il file

Ma quando viene eseguito il replace sulla variabile corpo questa rimane in memoria con quei valori e scrive tutte le righecon il primo valore cambiato dai replace

Questo è il pezzo di codice :
Set txtCorpo=CreateObject("Scripting.FileSystemObject" )
set rifCorpo= txtCorpo.OpenTextFile(Server.MapPath("corpo.txt"), 1, true)
Corpo= rifCorpo.readAll()

Set txtFile=CreateObject("Scripting.FileSystemObject")
set documento=txtFile.OpenTextFile(Server.MapPath("STA SIV515.txt"),1, true)


while not documento.AtEndOfStream


Scansione =documento.readLine()
ControlloRiga= Mid(Scansione, 6 , 3)

if ControlloRiga = "Art" then
Articolo = Mid(Scansione, 12, 21)
Descrizione = Mid(Scansione, 33, 34)
Quant = Mid (Scansione, 81, 13)

outStream.Write(VbCrLf)
Corpo = Replace(Corpo,"#","")
lungCorpo=len(Corpo)
Corpo = Replace(Corpo,"...CODICEARTICOLO...", Articolo)
Corpo = Replace(Corpo,"........DESCRIZIONE ARTICOLO........", Descrizione)
Corpo= Replace(Corpo,"QUANORDINATA", Quant)
outStream.Write(Corpo)
'response.write Articolo& ""
'response.Write Descrizione & ""
'response.Write Quant & "
"

else
if documento.AtEndOfStream then
outStream.Write(VbCrLf &"-------------------------------------------------------------------------------------------------------------------")
outStream.Write("--------------------------------------------------------------------------------------------------------------------------")
else
Scansione=documento.SkipLine()
end if
end if

wend

[optime]

k, adesso e' chiaro. fa' cosi': la ReadAll() falla in una variabile ExCorpo (non Corpo come adesso). Prima di tutte le Replace metti Corpo=ExCorpo. Cosi' ricominci tutte le volte con un corpo pulito.

[zoccolo]

Si avevo fatto una cosa del genere con una variabile di comodo
pippo=corpo

e poi dopo l'if

corpo=pippo


Grazie tante comunque per l'interessamento

[orkideaweb]

Ciao a tutti!!!!!!
ho bisogno di aiuto per questi odiosi apici

in un guestbook "asp" praticamente non vengono riconosciuti
gli apostrofi ecc e quindi il messaggio quando viene visualizzato nella pg. che richiama il database si tronca!

ho bisogno della stringa di codice della funzione "replace"
ma non sò ne come compilarla ne dove inserirla!
aiutatemi vi prego sono una designer in crisi!!!!!!!!!!!

il programmatore ke ha compilato il cod. mi ha lasciata nei kasini!!!

ciaoooooooooo!

[orkideaweb]

<%
page = Request("page")
if page="" then page=1
' ----------------------------------------STRINGA RICERCA
strRicerca = Request("chiave")
strRicerca1 =strRicerca

IF strRicerca = "" THEN
RecstrRicerca = Request("chiave")
strRicerca1 = RecstrRicerca
END IF

IF strRicerca1 = "" THEN
stmSQL="SELECT * FROM messaggi ORDER BY data DESC"
ELSE
'---------------------------------STRINGA RICERCA SCOMPONI
stmSQL = "SELECT * FROM messaggi WHERE "

Pos = 1

do While Pos > 0
Pos = InStr(1, strRicerca1," ")

If Pos = 0 Then
'Ho trovato una sola parola nella stringa da ricercare
tmpSQL = "(nome LIKE " & "'%" & strRicerca1 & "%'" & " or email like '%" & strRicerca1 & "%'" & " or messaggio like '%" & strRicerca1 & "%' )"

Else
SELECT CASE pos
case "1"
operatore="or "
case "2"
operatore=" "
END SELECT

tmpSQL = "(nome LIKE "& "'%" & Mid(strRicerca1,1,Pos-1) & "%'" & "OR email LIKE '%" & Mid(strRicerca1,1,Pos-1) & "%'" & "OR messaggio LIKE '%" & Mid(strRicerca1,1,Pos-1) & "%')" & OPERATORE

strRicerca1 = Mid(strRicerca1,Pos+1,len(strRicerca1))
End If

loop

stmSQL = stmSQL & tmpSQL & " ORDER BY data DESC"

end if
Recpg = 10
objRS.CursorType = 3
objRS.PageSize = Recpg
objRS.ActiveConnection = objConn
objRS.open stmsql

'-----------------------------------------------TROVATO?
If objRS.Eof=True or objRS.Bof=True then
response.write "<table width=635 border=2 cellspacing=0 cellpadding=2>"
response.write "<tr><td bgcolor=ffffff>"
Response.Write "<P align=center><font size='2' color='#ff0000' face='verdana, Arial, sans-serif'>Nessun risultato trovato

Torna indietro</font></P>
</TD></TR></TABLE>"
Else '-----------------------------------------------VISUALIZZA ELENCO
objRS.AbsolutePage = page
%>
<%
response.write "<table width=635 border=0 cellspacing=0 cellpadding=0 height=60>"
response.write "<tr> "
response.write " <tr>"
response.write "<td height='120'> "
response.write "<table width='635' cellspacing='0' cellpadding='24'>"

For i=1 to Recpg
if (Not objRS.EOF) then
codice= objRS.fields("codice")
nome= objRS.fields("nome")
messaggio= objRS.fields("messaggio")
email= objRS.fields("email")
data= objRS.fields("data")

g_tab= " MODIFICA "
g_tab= g_tab & "
" & " CANCELLA "

area= Session("area")
documento= "ok"

response.write "<tr> "

td_2="<TD><table width ='100%'><tr><td >"
td_2=td_2 & "<font size='2' font face'verdana'>"
td_2=td_2 & "<font size='2' font face='verdana' font color='ffffff'>NOME:</FONT><font size='3' font face'verdana'> " & Nome & "</FONT>
"
td_2=td_2 & "<font size='2' font face='verdana' font color='336699'>MESSAGGIO:</FONT><font size='3' font face'verdana'> " & Messaggio & "</FONT>
"
td_2=td_2 & "<font size='2' font face='verdana' font color='336699'>DATA:</FONT><font size='3' font face'verdana'> " & Data & "</FONT>
"
td_2=td_2 & "<font size='2' font face='verdana' font color='336699'>E-MAIL:</FONT><font size='3' font face'verdana'> " & "<a href=mailto:" & email & ">" & email & "</FONT></a>"
td_2=td_2 & "</FONT>"
td_2=td_2 & "<td></tr></table></TD>"

response.write td_2

response.write "</tr>"
objRS.MoveNext
end if
Next
End if

response.write "</table>"
response.write "</td></tr></table>"
%>
<%Response.Write "<font size=1 face='Verdana' color =ffffff>Pagine</font><font size=1 font face='Verdana' color =336699> >> </font>"
For pag=1 to objrs.PageCount
Response.Write "<A href='gb.asp?page=" & pag
Response.Write "&chiave=" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
%>

[zoccolo]

La funzione di replace è questa:

Apici = Replace(Pagina,"''",valore per la sostituzione)

Se ho un pò di tempo oggi gurado il tuo codice ma non ti assicuro nulla

[orkideaweb]

grazie 6 stato gentilissimo

ma lo posso aggiungere in un posto qualsiasi
del cod.? oddio sapessi quanto stò impazzendo x
questa scemata degli apici...
fai con calma appena puoi io aspetto anzi che mi
hai risp. è già un grande conforto!
sono agli inizi di asp e mi sento spaesata!
potresti spiegarmelo + dettagliatamente il pezzo
che hai scritto? lo sò chiedo troppo...
devo copiarlo kosi kome lo hai scritto?
cosa metto "nel valore"???

giuro di essere ignorante in materia!

ahahah si vede?!

[zoccolo]

La funzione replace ti permette di cercare all'interno di una variabile stringa ( o magari anche di una intera pagina che hai memorizzato dentro una variabile )il valore che tu vuoi venga sotituito con un'altro valore

Corpo=Replace(Corpo,"valore da cercare", "valore sostitutivo")

Corpo=variabile che contiene la stringa(o anche tutta la pagina)
Valore da cercare =nel tuo esempio sono le virgolette
valore sotitutivo = valore con il quale sostituirai le virgolette