Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - nomi dei file
Forum - Visual Basic 6 - nomi dei file

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedė, 01/01/1970
salve a tutti ragazzi
mi trovo un po' in difficolta' su un problema piuttosto banale, all'avvio del programma devo caricare su una variabile tutti i nomi dei file contenuti in una cartella senxa pero' caricare la loro estensione....

questo e' quello che faccio

Codice sorgente - presumibilmente VB.NET

  1. s = Dir(App.Path & "\smile" & "\*.bmp")
  2.        For i = 0 To 19
  3.           If s = "" Then Exit For
  4.              smile = smile & s & ","
  5.              s = Dir
  6.       Next i


in questo modo carico si tutti i nomi dei file ma anche le relative estensioni "bmp".....
esempio se un file si chiama "rrrr" con questo ciclo me lo carica "rrr.bmp"
io vorrei riuscira a caricare solo il nome senza la sua estensione....

ciao a tutti

PM Quote
Avatar
Overflow (Normal User)
Expert


Messaggi: 334
Iscritto: 11/01/2008

Segnala al moderatore
Postato alle 12:17
Sabato, 23/08/2008
Testo quotato

Postato originariamente da muteblaster:
Codice sorgente - presumibilmente VB.NET

  1. s = Dir(App.Path & "\smile" & "\*.bmp")
  2.        For i = 0 To 19
  3.           If s = "" Then Exit For
  4.              smile = smile & s & ","
  5.              s = Dir
  6.       Next i





inserisci dopo il controllo sulla stringa s(if s="" then)
s = Left(s, Len(s) - 4) quindi:
Codice sorgente - presumibilmente VB.NET

  1. s = Dir(App.Path & "\smile" & "\*.bmp")
  2.        For i = 0 To 19
  3.           If s = "" Then Exit For
  4.              s = Left(s, Len(s) - 4)
  5.              smile = smile & s & ","
  6.              s = Dir
  7.        Next i


o anche:
Codice sorgente - presumibilmente VB.NET

  1. s = Dir(App.Path & "\smile" & "\*.bmp")
  2.        For i = 0 To 19
  3.           If s = "" Then Exit For
  4.              smile = smile & s & ","
  5.              s = left(Dir,len(Dir)-4)
  6.        Next i



ma quest'ultimo non l'ho testato e non so se funzioni.

Ultima modifica effettuata da Overflow il 23/08/2008 alle 12:25
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 13:16
Sabato, 23/08/2008
Oppure potresti separare l'estensione con uno Split()

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 13:32
Sabato, 23/08/2008
funziona prorpio al caso mio....
una ultima cosa per togliere la virgola allultima parola come si fa'?.....
io faccio
smile = smile & s & ","
pero' questo mi crea un problema
   esempio
" ee,rrr,ttt,"
vorrei che se dopo la virgola non c'e' nessuna parola l'ultima virgola non venisse messa
avete idea di come si puo' fare?....

  

PM Quote
Avatar
Overflow (Normal User)
Expert


Messaggi: 334
Iscritto: 11/01/2008

Segnala al moderatore
Postato alle 13:47
Sabato, 23/08/2008
togli la virgola alla fine del ciclo.
Codice sorgente - presumibilmente VB.NET

  1. s = Dir(App.Path & "\smile" & "\*.bmp")
  2.        For i = 0 To 19
  3.           If s = "" Then Exit For
  4.              s = Left(s, Len(s) - 4)
  5.              smile = smile & s & ","
  6.              s = Dir
  7.        Next i
  8.  
  9. smile = left(smile,len(smile)-1)


PM Quote