Newsgroup: it.comp.lang.visual-basic
Titolo: Help x funzione Replace

Leggo in input un file di testo per poi scrivere in output su altro file le 
relative righe.
Durante questo passaggio cerco di manipolare alcune stringhe.
Non riesco a posizionarmi su una determinata riga del file che
vorrei moficare con la funzione Replace al verificarsi di una determinata 
condizione.
Esempio:
campo1  valore1
campo2  valore2
...          ...
...          ...
***********************
dovrei poter modificare il campo1 (non il valore1) allorquando
il valore2 del campo2 soddisfi una determinata condizione,
quindi fare un ciclo sull'intero file.
Sto tentando invano con il seguente codice:
------------------------------------------
Dim fso As Object
Dim objFileToRead As Object
Dim objFileToWrite As Object
Dim strTemp As String
Dim k As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFileToRead = fso.OpenTextFile(App.Path & "\testo.txt", 1)
    Set objFileToWrite = fso.OpenTextFile(App.Path & "\testo1.txt", 2, True)
Do While Not objFileToRead.AtEndOfStream
  strTemp = objFileToRead.ReadLine
For k = 1 To k - 1
If Left(strTemp, 6) = "Campo2" And Right(strTemp, 1) = "Valore2" Then
strTemp = Replace(strTemp, "Campo1", "Campo0")
End If
Next k
  If strTemp <> "" Then
    objFileToWrite.WriteLine (strTemp)
  End If
Loop
objFileToRead.Close
objFileToWrite.Close
Saluti
Angelo 

 If Left(strTemp, 6) = "Campo2" And Right(strTemp, 1) = "Valore2" Then
nel file c'e` "campo" oppure "Campo"?
devi confrontare con lo stesso case perche` "c" != "C"
-- 
ciao, hal

 devi confrontare con lo stesso case perche` "c" != "C"
Il confronto è corretto ed è "Campo".
Il problema è sempre la funzione Replace che non riesco ad applicare.
Ciao
Angelo 

 Giusto. Però, anche se parto da 0 non risolvo il problema.
dalla risposta, arguisco che prima ti serve un libro che ti spieghi
cosa sono i cicli e come/quando si usano.
-- 
ciao, hal

 cosa sono i cicli e come/quando si usano.
Libri a parte ... , potresti codificarmi la risposta?
Angelo 

 ha scritto nel messaggio 
news:rZW%e.7893$ID6.1...@twister2.libero.it...


"Angelo"
NON ho letto il post iniziale ma dagli ultimi qua imho
NON stai adoperando lo strumento ideale per fare quello
che presumibilmente vuoi fare ... in ogni modo :
'*.vbs
Replace Function
Returns a string in which a specified substring has been replaced with another
substring a specified number of times.
Replace(expression, find, replacewith[, start[, count[, compare]]])
Arguments
expression
Required. String expression containing substring to replace.
find
Required. Substring being searched for.
replacewith
Required. Replacement substring.
start
Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed. Must be used in
conjunction with count.
count
Optional. Number of substring substitutions to perform. If omitted, the default value is -1, which means make all
possible substitutions. Must be used in conjunction with start.
compare
Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for
values. If omitted, the default value is 0, which means perform a binary comparison.
 tutto in maniera piu leggibile qui   
http://www.g2kweb.it/?3039
          :- ))))))))))
http://www.4guysfromrolla.com/webtech/faq/FileSystemObject/faq1.shtml
http://www.soft-land.org/cgi-bin/doc.pl?doc=documenti/fso
ecc da
http://www.google.it/search?hl=it&q=Scripting.FileSystemObject+%2Bfaq&meta=
--
Fosco