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.
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
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.
