11. april 2004 - 17:05Der er
7 kommentarer og 1 løsning
Trimmerfunktion med '
Jeg har en trimmerfunktion jeg gerne vil udbygge, men detdriller mig.
Sådan ser funktionen ud:
Function Trimmerfunktion(strengen) var1 = Trim(strengen) 'FJERNER MELLEMRUM FORAN OG BAGVED var1 = LCase(var1) 'LOWER-CASE arrStr = Split(var1," ") For t = LBound(arrStr) TO UBound(arrStr) Streng = Trim(arrStr(t)) varL = Len(streng) If varL >= 1 Then varL = CInt(Len(Streng))-1 End If var1 = UCase(Left(Streng,1)) 'SÆTTER FØRSTE BOGSTAV SOM STORT OG SAMMENSÆTTER STRENGEN IGEN var3 = var3 &" "& var1 & Right(Streng,varL) Next Navn = Trim(Replace(var3,",",".")) 'ERSTATTER "," MED "."
Trimmerfunktion = Navn
End Function
Jeg ville gerne have funktionen fjerner tegnet ' hvis der er nogen som skriver det i formularen. Men hvordan kan jeg ikke finde ud af.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Function Trimmerfunktion(strengen) var1 = Trim(strengen) 'FJERNER MELLEMRUM FORAN OG BAGVED var1 = LCase(var1) 'LOWER-CASE arrStr = Split(var1," ") For t = LBound(arrStr) TO UBound(arrStr) Streng = Trim(arrStr(t)) varL = Len(streng) If varL >= 1 Then varL = CInt(Len(Streng))-1 End If var1 = UCase(Left(Streng,1)) 'SÆTTER FØRSTE BOGSTAV SOM STORT OG SAMMENSÆTTER STRENGEN IGEN var3 = var3 &" "& var1 & Right(Streng,varL) Next Navn = Trim(Replace(var3,",",".")) 'ERSTATTER "," MED "." Navn = Trim(Replace(var3,"'","")) 'ERSTATTER "'" MED ""
Function Trimmerfunktion(strengen) var1 = Trim(strengen) 'FJERNER MELLEMRUM FORAN OG BAGVED var1 = LCase(var1) 'LOWER-CASE arrStr = Split(var1," ") For t = LBound(arrStr) TO UBound(arrStr) Streng = Trim(arrStr(t)) varL = Len(streng) If varL >= 1 Then varL = CInt(Len(Streng))-1 End If var1 = UCase(Left(Streng,1)) 'SÆTTER FØRSTE BOGSTAV SOM STORT OG SAMMENSÆTTER STRENGEN IGEN var3 = var3 &" "& var1 & Right(Streng,varL) Next Navn = Trim(Replace(var3,",",".")) 'ERSTATTER "," MED "." Navn = Replace(Navn,"'","") 'ERSTATTER "'" MED ""
Trimmerfunktion = Navn
End Function
Synes godt om
Slettet bruger
11. april 2004 - 17:30#6
Boris: Du skal lige kome med et svar, så du kan få dine point ;-) keysersoze: Boris var først ;-(
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
