/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste