-
[VB6]Parametri
Ho la seguente subroutine creata per spezzare una stringa composta da: cognome*numero*credito*gestore
Private Sub spezza()
'estraggo cognome
pos = InStr(1, stringa, "*")
cog = Mid(stringa, 1, pos - 1)
'estraggo numero
pos1 = InStr(pos + 1, stringa, "*")
num = Mid(stringa, pos + 1, pos1 - (pos + 1))
'estraggo credito
pos2 = InStr(pos1 + 1, stringa, "*")
cred = Mid(stringa, pos1 + 1, pos2 - (pos1 + 1))
'estraggo gestore
ges = Mid(stringa, pos2 + 1)
End Sub
Ora quando la richiamo dovrei usare i passaggi di parametri
'input numero di telefono
num_intr = InputBox("Inserisci numero telefonico")
'apro il file numtel
Open App.Path & "\numtel.txt" For Input As #1
Do While Not EOF(1) And (trov = False)
Line Input #1, stringa
'richiamo subroutine spezza
Call spezza [QUA DENTRO CHE CI METTO ???]
If (num_intr = num) Then
trov = True
'se è presente apro il file rispgest
Open App.Path & "\rispgest.txt" For Input As #2
Do While Not EOF(2) And (trov1 = False)
Line Input #2, stringa
pos = InStr(1, stringa, "*")
gestore1 = Mid(stringa, 1, pos - 1)
'controllo se il gestore relamente esiste
If (gestore1 = ges) Then
trov1 = True
'se esiste apro il messaggio relativo al gestore
MsgBox (stringa)
End If]
-
Software Zone Fanatic
Se mi ricordo bene
Private Sub spezza(cognome*numero*credito*gestore)
nel programma quando lo richiami
Call spezza (cognome*numero*credito*gestore) che sono le variabili che hai memorizzato e che devi passare (possono chiamarsi anche differentemente)
-
grazie,ci sono riuscita!
Permessi di Scrittura
- Tu non puoi inviare nuove discussioni
- Tu non puoi inviare risposte
- Tu non puoi inviare allegati
- Tu non puoi modificare i tuoi messaggi
-
Regole del Forum
Segnalibri