Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Estrarre stringa da sinistra fino a ultimo carattere "\"

  1. #1
    surfgarden non  in linea Scolaretto
    Post
    146
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao a tutti
    sulla colonna A ho elencati i percorsi di vari file (es. C:\cartella1\cartella2\...\cartellaN\nomefile)
    Per estrarre il nomefile utilizzo la funzione:

    Public Function fTrovanome(ByVal strPath As String) As String
    
        Dim intStart As Integer
        Dim intEnd As Integer
       
        intStart = InStrRev(strPath, "\") + 1
        intEnd = InStrRev(strPath, ".")
       
        fTrovanome = Mid(strPath, intStart, intEnd - intStart)
    
    End Function
    
    ed inserendo sulla cella della colonna B il codice: fTrovanome(A1), mi viene restituito il nomefile

    Vorrei fare lo stesso, ma al contrario, ossia fTrovapercorso(A1), in modo che mi venga restituito C:\cartella1\cartella2\...\cartellaN\ , ma non riesco a modificare correttamente la funzione.
    Potete darmi una mano?
    Grazie
    Ultima modifica di surfgarden; 19-09-2020 11:19  Motivo: errata colonna

  2. #2
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,369
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    31
    Prova da solo molto semplice. Nella stessa funzione il valore di intStart quello finale della stringa da restituire a partire dal primo carattere... usa la Left
    Ultima modifica di AntonioG; 19-09-2020 11:30 
    ℹ️ Leggi di pi su AntonioG ...

  3. #3
    surfgarden non  in linea Scolaretto
    Post
    146
    Like Inviati  
    0
    Like Ricevuti  
    0
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Prova da solo molto semplice. Nella stessa funzione il valore di intStart quello finale della stringa da restituire a partire dal primo carattere... usa la Left
    Il Left era quello che gi stavo provando! ...se per mi mettevi un .."setfocus" sul MID ... ci arrivavo prima!

    Dim intStart As Integer
       
       intStart = InStrRev(strPath, "\")
       fTrovapercorso = Left(strPath, intStart)
    
    Grazie cmq

  4. #4
    L'avatar di AntonioG
    AntonioG non  in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,369
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    31
    Non capisco quello che hai scritto sul Mid ma importante che ci sei arrivato da solo

    P.S. la variabile era meglio chiamarla intEnd
    Ultima modifica di AntonioG; 19-09-2020 16:45 
    ℹ️ Leggi di pi su AntonioG ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 8
    Ultimo Post: 13-05-2014, 21:43
  2. Risposte: 2
    Ultimo Post: 13-04-2014, 23:11
  3. Risposte: 5
    Ultimo Post: 26-01-2011, 14:40
  4. Problemi con carattere " in una variabile stringa
    Da suchigno nel forum Visual Basic .Net
    Risposte: 13
    Ultimo Post: 20-05-2010, 11:57
  5. Risposte: 8
    Ultimo Post: 11-10-2005, 17:21