Leggere testo riga per riga e sostutuire

[tretretre]

ciao a tutti.
vorrei sapere se in asp è opssibile prendere un file di testo o un blocco di testo statico e prefissato e leggero riga per riga andando a ricercare e sostituire determinate parti.
ad esempio se una riga e vuota vorrei che me la togliesse, se una riga inizia con 'Totale' ecc ecc.
è possibile?
grazie

[Vincent.Zeno]

non me ne sono mai occupato...
ma qui ci sono istruzioni ed esempi
http://www.w3schools.com/asp/asp_ref_textstream.asp

[MarcusASP]

Quando parli di più righe, intendi che sono separate da chr(13) & chr(10)?

[tretretre]

esattamente!!
grazie ad entrambe!!

adesso vorrei chiedervi un'altra cosa.
sepre analizando riga per riga posso inserire in una variabile in testo che all'interno della riga in analisi è contenuto in delle parentesi tonde?
esempio:
R1: testo-inizio-riga (testo in parentesi)

il testo inizio riga purtroppo non è fisso ma cambia ad ogni riga quindi non posso usare left(n).

la tonda ) chiusa è sempre a fine riga ma non so quanti caratteri ho quindi non posso usare nemmeno right.

esiste un modo per poter estrapolare solo ciò che in quella riga è in parentesi?
grazie ancora!

[tretretre]

se usassi la funzione split?
ora faccio qualche prova


edit:
ok ce l'ho fatta!
separo=split(totali, "(")
response.Write("<td>" & separo(0) & "</td>")
separo(1)=replace(separo(1), ")", "" )
response.Write("<td>" & separo(1) & "</td><td>")
controllo=0

e funziona!!!

[optime]

usa Replace

ad esempio

riga del testo

Sono nato a ##luogonascita## il ##datanascita##

puoi fare

luogonascita="Roma"
datanascita="10 maggio 1980"

Riga=Replace(Riga, "##luogonascita##", luogonascita)
Riga=Replace(Riga, "##datanascita##", datanascita)

that easy!

[MarcusASP]

Mah, non direi: se sevi estrarre il testo in parentesi dovresti fare

sMiaStringa = "testo fuori (testo dentro) altro testo"
sTestoEstratto = ""
sTestoErrore = ""
lPosInizio = Instr(sMiaStringa,"(")
If lPosInizio > 0 Then
    lPosFine = Instr(lPosInizio+1, sMiaStringa,")")
    If lPosFine > 0 Then
        lLunghezzaTestoEstratto = lPosFine - lPosInizio
        If lLunghezzaTestoEstratto > 0 Then
            sTestoEstratto = Mid(sMiaString, lPosInizio,  lLunghezzaTestoEstratto)
        End If
    Else
        sTestoErrore = "Non è stato trovato ')'"
    End If
Else
    sTestoErrore = "Non è stato trovato '('"
End If
If Len(sTestoErrore) Then
    Response.Write "Errore: " & sTestoErrore
Else
    Response.Write "Testo estratto='" & sTestoEstratto & "'"
End If

Non è easy ma è secure!

[tretretre]

giaooooooooooooooooooo!
grazie!!!
qualche adattamento e funziona!!!!!!!!!!!!!!!!!