BASIC 6.0

Zna li ko kako da iz imena fajla da izdvojim Format fajla?

 

[codemaker]

ko?

 

[_smirnoff_]

Mozda ovo moze da ti da ideju

Dim tekst As String
Dim rez As String
Dim duz As Integer

tekst = TextBox1.Text
duz = Len(tekst)
rez = Mid(tekst, duz - 2, 3)

:wink:

 

[stormbringer1]

a sta ako je extenzija od 4 znaka (recimo HTML)???

 

[_smirnoff_]

Imas pravo, prevideo sam taj slucaj!
Tako da, evo ispravke:

Dim tekst As String
Dim duz As Integer
Dim rez As String
Dim i As Integer

tekst = TextBox1.Text
duz = Len(tekst)
For i = 1 To duz
rez = Mid(tekst, i, 1)
If (rez = ".") Then GoTo kraj
Next i
kraj: rez = Mid(tekst, i + 1, duz - i)
TextBox1.Text = rez

Cini mi se da je to - to.