Estrarre un Numero da un campo

5 Risposte

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi

  8951

  13 feb 2015, 20:43

  Che hai un numero lo abbiamo capito...
  Sembra un problema scolastico. .. che dici mi sbaglio..?
  
  Compreso il problema... mostraci il tuo approccio, cosa hai fatto e che anomalie hai ottenuto...
  Lo sai certamente, perché hai letto il regolamento, che il forum non fornisce codice pronto... quindi esponi il tuo tentativo...
• /

  Anonimizzato16093

  Utente anonimizzato

  13 feb 2015, 21:04

  Alex
  Al momento dato che ho poche centinaia di record mi sono limitato a filtrare le prime 7 da destra e poi le 7 da sinistra per una prima scrematura, e fortunatamente il 90% ricade in questa casistica, purtroppo per i rimanenti record ne faccio una verifica manuale, lo so che non è professionale ma questo è quanto, non sono alla ricerca di codice pronto ma di alcuni spunti che mi possano indirizzare
  Ciao
  Paolo
  
  
  Inviato da mio iPad utilizzando Tapatalk
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi

  8951

  13 feb 2015, 22:31

  Non mi vengono in mente molte cose non conoscendo la composizione della stringa... pensavo a replace ma da usare con Regexp in modo che sostituisca i gruppi di numeri<7 e le lettere con Nullstriing. .. ma non riesco a darti un pattern per farlo....
  Forse sarebbe più semplice estrarre i 7 numeri direttamente sempre con Regexp
• /

  Anonimizzato13056

  Utente anonimizzato

  14 feb 2015, 17:41

  Ciao Paolo ed Alessandro...
  ed una soluzione un po' vintage cosi : (....meglio la prima a questo punto...)
  
  un saluto.
  

  
  Sub extractNumber3()
  
  Dim strString As String, strNumber As String
  Dim i As Integer
  strString = "asvas74777vasdvasdvdavvvv88svdas7654321asvasdvdasvasdvdasv"
  i = 1
  Do While Len(strNumber) < 7
    If Val(Mid(strString, i, 1)) Then
       strNumber = strNumber & Mid(strString, i, 1)
    Else
      If Len(strNumber) > 0 Then strNumber = ""
    End If
    i = i + 1
  Loop
  
  Debug.Print strNumber
  
  End Sub
  
  [code]
  Sub extractNumber()
  
  Dim strString As String, strNumber As String
  Dim i As Integer
  strString = "asvas74777vasdvasdvdavvvv88svdas7654321asvasdvdasvasdvdasv"
  
  For i = 1 To Len(strString)
    If Len(strNumber) = 7 Then Exit For
    If Asc(Mid(strString, i, 1)) > 47 And Asc(Mid(strString, i, 1)) < 58 Then
        strNumber = strNumber & Mid(strString, i, 1)
    End If
    If Len(strNumber) > 0 And Not (Asc(Mid(strString, i, 1)) > 47 And Asc(Mid(strString, i, 1)) < 58) Then
      strNumber = ""
    End If
  Next
  
  Debug.Print strNumber
  
  End Sub
  
  

• /

  Anonimizzato16093

  Utente anonimizzato

  14 feb 2015, 18:11

  Grazie mille, lo testerò presto
  
  
  Inviato da mio iPad utilizzando Tapatalk