Risultati da 1 a 3 di 3

Discussione: [VB6]Parametri

  1. #1
    New Member
    Data Registrazione
    04-12-2005
    Messaggi
    14

    [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]

  2. #2
    Software Zone Fanatic L'avatar di Capoccione
    Data Registrazione
    21-11-2001
    Località
    Roma
    Messaggi
    11.984
    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)

  3. #3
    New Member
    Data Registrazione
    04-12-2005
    Messaggi
    14
    grazie,ci sono riuscita!

Segnalibri

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
  •