Anonymous

DIM sName AS String
DIM sVersion AS String
DIM ipos1 AS Integer
DIM ipos2 AS Integer
DIM ipos3 AS Integer

ipos1 = RInStr(Dialog.Path, "/") + 1 
ipos2 = InStr(Dialog.Path, "-") - 1
ipos3 = InStr(Dialog.Path, ".tar") - 1
 
sName = Mid$(Left$(Dialog.Path, ipos2), ipos1)
sVersion = Mid$(Left$(Dialog.Path, ipos3), ipos2 + 1)
TextArea1.Text = "name " & sName & "   " & sVersion