|
| Fjern endelse i en textbox? Fra : Spanni |
Dato : 13-09-02 09:36 |
|
Jeg har en textbox hvor der fx står explorer.exe, og jeg gerne ville ha
fjernet ".exe" hvordan gøres dette?
| |
Søren Altmann (13-09-2002)
| Kommentar Fra : Søren Altmann |
Dato : 13-09-02 10:04 |
|
"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
| |
Spanni (13-09-2002)
| Kommentar Fra : Spanni |
Dato : 13-09-02 11:17 |
|
Jamen så siger jeg rigtig mange tak for hjælpen
| |
Spanni (13-09-2002)
| Kommentar Fra : Spanni |
Dato : 13-09-02 11:29 |
|
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" ?
| |
John Doe (13-09-2002)
| Kommentar Fra : John Doe |
Dato : 13-09-02 12:14 |
|
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
'------------------------------------------------------------------------
| |
Spanni (13-09-2002)
| Kommentar Fra : Spanni |
Dato : 13-09-02 17:10 |
|
Lækkert lige præcist sådan det skulle virker, Takker ;)
| |
Tomas Christiansen (15-09-2002)
| Kommentar Fra : Tomas Christiansen |
Dato : 15-09-02 22:18 |
|
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
| |
|
|