Newsgroup: it.comp.lang.visual-basic
Titolo: File

Ciao a tutti,
ho un file (Programmi.txt) così fatto (esempio):
nome - stampa
andrea,unita.rpt
andrea,divisione.rpt
paolo,manager.rpt
...
devo riuscire a vedere se è andrea, prendi la stampa e mettila in una
variabile "Stampa" e fai così fino a quando si cambia nome.
Aprirò così il mio file (generale.htm) che conterrà:
<HREF A="
http://progetto/
" + Stampa>
Spero di essere stato chiaro. Ringrazio anticipatamente.
Andrea. 

 ha scritto nel messaggio
news:3db66c8e...@powernews.libero.it...

mah.....
Apri il file
do
    leggi una riga e mettila in una stringa
    split della stringa al carattere di divisione (una virgola no?)
        quindi ottieni 2 stringhe: Nome , Nome del report
            confronto Nome= "Andrea"
                se si stampa il link o fai quello che ti pare
                se no leggi un altra riga
loop fino alla condizione EOF
Ciauz!

Grazie ma avrei un problemino a tradurre in codice due righe, cioè
...
    split della stringa al carattere di divisione (una virgola no?)
    quindi ottieni 2 stringhe: Nome , Nome del report
...
grazie ancora visto che con i file nn me la cavo tanto bene!
Andrea.

 ha scritto nel messaggio
news:3db6997f...@powernews.libero.it...

2 possibilità...in ambedue bisogna avere voglia di studiare ed un VB6
originale o almeno copiato bene!
possibilità a) Premi F1 e cerca Split
possibilità b) Premi F1 e cerca Instr (in questo caso,a seguire, utile anche
cercare la funzione Mid)
ti ho dato tutti i termini ora fai da te 1+1
Ciao !
(Wodka in trasferta!)

Semprecol mio file di testo programmi.txt
andrea,unita
...
ho fatto
    Open "c:\programmi.txt" For Input As #3
      If Not EOF(3) Then
        Input #3, a$, b$
        If Mid$(a$, 1, 1) = "a" Then
           MsgBox ("trovato")
        End If
      End If
      Close #3
ma come faccio a dire però a fare scorrere tutto il file? Devo fare
questa correzione? o qualcos'altro?
    Open "c:\programmi.txt" For Input As #3
      Do until EOF(3) Then
        Input #3, a$, b$
        If Mid$(a$, 1, 1) = "a" Then
           MsgBox ("trovato")
        End If
      Loop
      Close #3
Grazie as6ub!

     Open "c:\programmi.txt" For Input As #3
qui ci faccio leggere la prima riga
Line Input #3, Riga
Do
qui ora smanetti un po tu
Riga č la riga....
va divisa e riempite con il risultato della divisione
Nome e
FileNome
Split non ti piace?o hai vb5?
ok
Con Instr trovati la posizione della tua virgola
č logico che n caratteri a sx della virgola sono il Nome
e che m caratteri a dx della virgola sono il FileNome
quindi una volta che hai queste 2 variabili riempite
If nome = "Andrea" Then
    fai qualcosa
Altrimenti (cerca else)
    fai qualcos'altro....nel tuo caso nulla
end if
Leggi una nuova riga
ossia Line input #3, riga
Loop until EOF(3)
a grandi linee č fatto al 90%...la sintassi giusta trovala tu!
Ciao!

Semprecol mio file di testo programmi.txt
andrea,unita
...
ho fatto
    Open "c:\programmi.txt" For Input As #3
      If Not EOF(3) Then
        Input #3, a$, b$
        If Mid$(a$, 1, 1) = "a" Then
           MsgBox ("trovato")
        End If
      End If
      Close #3
ma come faccio a dire però a fare scorrere tutto il file? Devo fare
questa correzione? o qualcos'altro?
    Open "c:\programmi.txt" For Input As #3
      Do until EOF(3) Then
        Input #3, a$, b$
        If Mid$(a$, 1, 1) = "a" Then
           MsgBox ("trovato")
