Discussione chiusa
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 15 su 15

Discussione: estrarre stringa access

  1. #11
    davideleo non è in linea Scolaretto
    Luogo
    Milano
    Post
    154
    Grazie a te, mi hai dato lo spunto per affrontare un problema che volevo risolvere da un po'. Nel frattempo ho apportato alcune modifiche alla funzione:

    codice:
    Function EstraiTesto(Occorrenza As Integer, Memo As String, Controllo As String) As String
    
    Memo = Memo & Controllo
    Dim Contatore As Integer
    For Contatore = 1 To Occorrenza
      If Len(Memo) > 0 Then
        EstraiTesto = Trim(Left(Memo, InStr(1, Memo, Controllo) - 1))
        Memo = Mid(Memo, InStr(1, Memo, Controllo) + Len(Controllo))
      Else
        EstraiTesto = ""
        Exit For
      End If
    Next
    
    End Function
    Ho sostituito l'istruzione Do...Loop con quella For...Next che mi sembra più appropriata ed elimina due righe di codice.
    Poi ho aggiunto una riga (Memo = Memo & Controllo) che permette di estrarre l'ultima porzione di testo anche quando la stringa di controllo è un separatore (ad esempio ",") e quindi non si trova in fonda al testo Memo. Nella versione precedente questo caso generava un errore.
    Infine, proprio pensando al caso dell'elenco separato da virgole ho usato la funzione Trim per eliminare eventuali spazi vuoti tra il testo e il controllo.
    Ultima modifica di davideleo; 24-06-2006 00:51  Motivo: Sostituito [CODE]For Contatore = 0 To Occorrenza - 1 Step 1[/CODE] con [CODE]For Contatore = 1 To Occorrenza[CODE]
    Davide

  2. #12
    L'avatar di John
    John non è in linea Scolaretto
    Luogo
    Pordenone
    Post
    217
    super bene
    Testato, perfetto.......

    Curiosità lavori su VB o lo fai per passione?
    John
    Ultima modifica di John; 23-06-2006 13:25 

  3. #13
    davideleo non è in linea Scolaretto
    Luogo
    Milano
    Post
    154
    No, solo per passione, o meglio, anche per lavoro, ma nel senso che uso Access per tenere la contabilità
    Davide

  4. #14
    misterzaga non è in linea Novello
    Post
    17
    Quote Originariamente inviato da davideleo Visualizza il messaggio
    Mi sono accorto di un problema e ho fatto una piccola modifica

    codice:
    Function EstraiTesto(Occorrenza As Integer, Memo As String, Controllo As String) As String
    Dim Contatore As Integer
    Contatore = 0
    
    Do While Contatore < Occorrenza
    If Len(Memo) > 0 Then
    EstraiTesto = Left(Memo, InStr(1, Memo, Controllo) - 1)
      Memo = Mid(Memo, InStr(1, Memo, Controllo) + Len(Controllo))
    Else
      EstraiTesto = ""
      Exit Do
    End If
    Contatore = Contatore + 1
    Loop
    
    End Function
    Nella prima versione se Occorrenza era maggiore del numero massimo di occorrnze di Controllo in Memo la funzione dava un errore, così oltre il numero masimo restituisce una stringa vuota

    Chiedo scusa per aver inserito una risposta in un Thread datato, ma non ho trovato nulla di più.
    desidero sapere, visto che devo fare la stessa cosa indicata qui, in che modo posso richiamare la funzione per inserire ogni pezzo estratto in più record correlati di una tabella.
    In sostanza devo estrarre vari pezzi di testo e numeri da un campo memo di una tabella e i pezzi estratti li devo inserire in una tabella correlata (ogni pezzo 1 record diverso).
    chi mi aiuta?

  5. #15
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,251
    Blogs
    5
    Non si deve rispondere ad un vecchio thread (del 2006 addirittura).

    Per una questione di ordine e di corretta lettura del forum, devi aprire un nuovo thread, spiegando il tuo problema e aggiungendo - al massimo - un "link" alla vecchia discussione.

    Questa viene chiusa.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

Discussione chiusa
Pagina 2 di 2 primaprima 12

Discussioni simili

  1. excel - da cifra a lettere
    Da kair78 nel forum Excel
    Risposte: 8
    Ultimo Post: 17-04-2012, 10:40
  2. [ACCESS] conversione numeri in lettere
    Da andromeda nel forum Access
    Risposte: 17
    Ultimo Post: 20-09-2009, 09:15
  3. Stringa di connessione Access e connessione.
    Da maximum nel forum Visual Basic 6
    Risposte: 18
    Ultimo Post: 09-10-2005, 01:47
  4. [C/C++] sprintf & stream
    Da lucagalbu nel forum C/C++
    Risposte: 8
    Ultimo Post: 05-01-2005, 13:09

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi