Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Mitenkä ohjelma saa revittyä tiedostosta päätteen?
öö, oletetaan, että pääte on aina kolme kirjainta pitkä, niin näin: paate = right$(tiedostonnimi$, 3)
Jos tarkoitat tiedostonimestä niin esim. näin:
Dim tiedosto As String
Dim paate As String
tiedosto = "tiedosto.omapaate.txt"
For i = Len(tiedosto) To 1 Step -1
If Mid$(tiedosto, i, 1) = "." Then
paate = Mid$(tiedosto, i, Len(tiedosto) - i + 1)
Exit For
End If
Next
MsgBox "Tiedoston " & tiedosto & " pääte on " & paateAihe on jo aika vanha, joten et voi enää vastata siihen.