---

Jeg har en textbox hvor der fx står explorer.exe, og jeg gerne ville ha
fjernet ".exe" hvordan gøres dette?

---

"Spanni" <user@fuck.apg> wrote in message
news:als81m$10v5$1@news.cybercity.dk...
> Jeg har en textbox hvor der fx står explorer.exe, og jeg gerne ville ha
> fjernet ".exe" hvordan gøres dette?


Hvis det altid er en ".xxx" endelse kan du bruge:

string = left(string, len(string)-4)

Ellers kan du fjerne alt efter "." med...

string = left(string, instr(string, "."))

Eller noget i den stil...

// Søren

---

Jamen så siger jeg rigtig mange tak for hjælpen

---

hmm kan ikke få det til at virker, kunne man få dig til at lave et lille
eksempel, hvor der i en textbox bliver fjernet ".xxx" ?

---

opret to textboxes:
- Text1
- Text2
paste flg:
'------------------------------------------------------------------------
Private Sub Form_Load()
Text1.Text = "mit.navn.er."
Text2.Text = RemoveExt(Text1)

End Sub

Private Function RemoveExt(sFile)

Dim iPos As Integer
Dim iFileLen As Integer
Dim i As Integer
Dim chCurrentChar As String

iFileLen = Len(sFile)

iPos = InStr(sFile, ".")
If iPos > 0 Then
i = 0
While i <> iFileLen
chCurrentChar = Mid(sFile, iFileLen - i, 1)
If chCurrentChar = "." Then
RemoveExt = Left(sFile, iFileLen - (i + 1))
Exit Function
End If
i = i + 1
Wend
End If

RemoveExt = sFile

End Function

'------------------------------------------------------------------------

---

Lækkert lige præcist sådan det skulle virker, Takker ;)

---

John Doe skrev i sin nekrolog:
> Private Function RemoveExt(sFile)
....cut - cut - cut...
> End Function

Udover din mangel på type-angivelser samt mangel på brugen af
værdi-overførsel, må man sige at mange veje fører til Rom, og nogle af
dem er lange og snørklede. Her er et par af genvejene, som virker hvis
man bruger VB6:

Function RemoveExt1(ByVal sFilename As String) As String
Dim lPos As Long
lPos = InStrRev(sFilename, ".")
If lPos = 0 Then
RemoveExt1 = sFilename
Else
RemoveExt1 = Left(sFilename, lPos - 1)
End If
End Function

Function RemoveExt2(ByVal sFilename As String) As String
RemoveExt2 = Left(sFilename, IIf(InStrRev(sFilename, ".") = 0, _
Len(sFilename), InStrRev(sFilename, ".") - 1))
End Function

-------
Tomas