VB6 - Togliere testo da una stringa

[Pinco Pallino 2]

CIAO!
Io uso commondialog per aprire un file.
dopo l'apertura metto in una textbox il nome del file (commondialog1.fileTitle)

Il mio problema è che mi scrive anche l'estensione e io non la voglio, partendo dal presupposto che l'estensione è sempre .MP3 (ho messo il filtro alla commondialog) come posso fare a togliere l'estensione dalla stringa che inserisco nella text1?

Grazie e buona pasqua!

[L'Aquila]

Il codice seguente restituisce il nome del file senza l'estensione:

Dim file As String
...
file = CommonDialog1.FileName
file = Mid(file,InStrRev(file,"\") + 1)
file = Mid(file,1,Len(file - 4))

non lo testato, ma dovrebbe funzionare

[yyzyyz]

ammettendo ke text1.text sia CommonDialog1.FileName:

Dim filtroext As String
Dim nlen As Double

Private Sub Command1_Click()
nlen = Len(Text1.Text)
filtroext = Left(Text1.Text, nlen - 4)
Text2.Text = filtroext
End Sub

Private Sub Form_Load()
Text1.Text = "mio.mp3"
End Sub

[L'Aquila]

Il codice seguente restituisce il nome del file senza l'estensione:


code:--------------------------------------------------------------------------------
Dim file As String
...
file = CommonDialog1.FileName
file = Mid(file,InStrRev(file,"\") + 1)
file = Mid(file,1,Len(file - 4))
--------------------------------------------------------------------------------


non lo testato, ma dovrebbe funzionare

volevo dirti che il cdice che ti ho fornito elimina il percorso che ti dà la commondialog

[yyzyyz]

... non avevo valutato il percorso

ps. comunque ho visto ke il cod. lavora bene anke senza l'ultima riga, a meno ke non abbia qualke funzione particolare, :master:

file = CommonDialog1.FileName
file = Mid(file,InStrRev(file,"\") + 1)

[L'Aquila]

Specifico: l'istruzione

file = Mid(file,InStrRev(file,"\") + 1)

elimina il percorso del file, mentre per eliminare l'estensione puoi utilizzare meglio l'istruzione di yyzyyz

nlen = Len(file)
file = Left(file, nlen - 4)

oppure la mia:

file = Mid(file,1,Len(file - 4))