"Trimme" funktion

Rettelse

Så input "  mette JENSEN" bliver til "Mette Jensen"

Her er funktionen

<%
'Så input "  mette JENSEN" bliver til "Mette Jensen"
var1 = "  mette JENSEN"
'Laver lower-case
var1 = LCase(var1)
var1 = Trim(var1)  'Fjerner mellemrum foran og bagefter
'String = "mette jensen"
varL = Len(var1)
varR = Right(var1,varL-1)
var1 = UCase(Left(var1,1)) & varR

var4 = Instr(1, var1, " ", 1)
var5 = Mid(var1, var4+1, 1)
var3 = Left(var1,var4) & UCase(Mid(var1, var4+1, 1)) & Right(var1,CInt(varL-var4-1))
%>

Det andet forstod jeg ikke helt

Sådan der. Der manglede lige punkt 4.

<%
'Så input "  mette JENSEN" bliver til "Mette Jensen"
var1 = "  mette JENSEN"
'Laver lower-case
var1 = LCase(var1)
var1 = Trim(var1)  'Fjerner mellemrum foran og bagefter
'String = "mette jensen"
varL = Len(var1)
varR = Right(var1,varL-1)
var1 = UCase(Left(var1,1)) & varR

var4 = Instr(1, var1, " ", 1)
var5 = Mid(var1, var4+1, 1)
var3 = Left(var1,var4) & UCase(Mid(var1, var4+1, 1)) & Right(var1,CInt(varL-var4-1))

Navn = Replace(var3,",",".")
%>

Det er muligvis sådan her du mener

<%
'Så input "  mette JENSEN" bliver til "Mette Jensen"

fornavn = Request.Form("requiredfornavn")
efternavn = Request.Form("requiredfornavn")

var1 = fornavn &" "& efternavn
'Laver lower-case
var1 = LCase(var1)
var1 = Trim(var1)  'Fjerner mellemrum foran og bagefter
'String = "mette jensen"
varL = Len(var1)
varR = Right(var1,varL-1)
var1 = UCase(Left(var1,1)) & varR

var4 = Instr(1, var1, " ", 1)
var5 = Mid(var1, var4+1, 1)
var3 = Left(var1,var4) & UCase(Mid(var1, var4+1, 1)) & Right(var1,CInt(varL-var4-1))

Navn = Replace(var3,",",".")

arrNavn = Split(Navn," ")
fnavn = arrNavn(0)
enavn = arrNavn(1)
SQL = "INSERT INTO femina (fornavn, efternavn) values('" & fNavn & "','" & eNavn & "')"
%>

Så kom jeg endelig på nette igen.

Jeg kan ikke helt gennemskue koden. behandler den fornavn og efternavn som en eller to strenge? Plan er at jeg vil bruge funktionen på x antal input og derfor skal den gerne behandle den individuelt. Det fremgik muligvis ikke helt tydeligt.

okay. Den behandler fornavn og efternavn som en streng.

Laver lige koden med forklaringer.

<%
Function Trimmerfunktion(navn1, navn2)
'**************************************************************
'**** Så input "  mette JENSEN" bliver til "Mette Jensen" *****
'**************************************************************

fornavn = navn1
efternavn = navn2

var1 = fornavn &" "& efternavn 'Sammensætter for- og efternavn.
var1 = LCase(var1) 'Laver METte JENSen til mette jensen(Lower-Case) 
var1 = Trim(var1)  'Fjerner mellemrum foran og bagefter
varL = Len(var1) 'Tæller antal tegn i strengen
varR = Right(var1,varL-1) 'Alle tegn undtagen det første.
var1 = UCase(Left(var1,1)) & varR 'Laver første bogstavt stort og sammensætter Strengen igen.
var4 = Instr(1, var1, " ", 1) 'Finder mellemrummet mellem fornavn og efternavn.
var5 = Mid(var1, var4+1, 1) 'Finder 1. bogstav i efternavnet.
var3 = Left(var1,var4) & UCase(var5) & Right(var1,CInt(varL-var4-1)) 'Laver 1. bogstav i efternavnet stort og sammensætter Strengen igen.

Navn = Replace(var3,",",".") 'Erstatter "," med "."

arrNavn = Split(Navn," ") 'Splitter ved " "
fnavn = arrNavn(0) 'Fornavn
enavn = arrNavn(1) 'Efternavn

'Indsætter dataene i databasen.
SQL = "INSERT INTO femina (fornavn, efternavn) values('" & fNavn & "','" & eNavn & "')"
End Function
%>

Så kan du bruge funktionen sådan her :

<%
navn1 = Request.Form("requiredfornavn")
navn2 = Request.Form("requiredefternavn") 

Trimmerfunktion(navn1, navn2)
%>

Hvis nu
var1 = fornavn &" "& efternavn 'Sammensætter for- og efternavn.
slettes, vil jeg så ikke kunne bruge den på x antal strenge?
fornavn, efternavn, adresse, postnr osv?

Jeg har ikke forstået helt hvordan du vil bruge endnu...

Skal det være sådan at du gerne vil have funktionen kørt på alle strengene også postnr, adresse etc. ????

For så skal den ændres lidt.

Præcis - det er ikke altid så nemt at forklare sig ;-)

Okay så skal den være sådan her.

<%
Function Trimmerfunktion(strengen)
'**************************************************************
'**** Så input "  mette JENSEN" bliver til "Mette Jensen" *****
'**************************************************************

var1 = strengen '
var1 = LCase(var1) 'Laver METte JENSen til mette jensen(Lower-Case) 
var1 = Trim(var1)  'Fjerner mellemrum foran og bagefter
varL = Len(var1) 'Tæller antal tegn i strengen
varR = Right(var1,varL-1) 'Alle tegn undtagen det første.
var1 = UCase(Left(var1,1)) & varR 'Laver første bogstavt stort og sammensætter Strengen igen.
var4 = Instr(1, var1, " ", 1) 'Finder mellemrummet mellem fornavn og efternavn.
var5 = Mid(var1, var4+1, 1) 'Finder 1. bogstav i efternavnet.
var3 = Left(var1,var4) & UCase(var5) & Right(var1,CInt(varL-var4-1)) 'Laver 1. bogstav i efternavnet stort og sammensætter Strengen igen.
Navn = Replace(var3,",",".") 'Erstatter "," med "."

Strengen = Navn

End Function
%>

Og så kan du kalde funktionen sådan her

<%
Fornavn = Trimmerfunktion(Request.Form("requiredfornavn"))
Efternavn = Trimmerfunktion(Request.Form("requiredefternavn"))

SQL = "INSERT INTO femina(fornavn, efternavn) values('" & Fornavn & "','" & Efternavn & "')"
Conn.Execute(SQL)
%>

SQLén er tom
INSERT INTO femina (fornavn, efternavn) values('','')

Hvis fornavn og efternavn kommer ind i funktionen, kommer de ikke ud igen, så vidt jeg kan se.

Den her virker, bare lige mig der klumrede lidt i det.

<%
Function Trimmerfunktion(strengen)

var1 = strengen
var1 = LCase(var1) 'Laver METte JENSen til mette jensen(Lower-Case) 
var1 = Trim(var1)  'Fjerner mellemrum foran og bagefter
varL = Len(var1) 'Tæller antal tegn i strengen
varR = Right(var1,varL-1) 'Alle tegn undtagen det første.
var1 = UCase(Left(var1,1)) & varR 'Laver første bogstavt stort og sammensætter Strengen igen.
var4 = Instr(1, var1, " ", 1) 'Finder mellemrummet mellem fornavn og efternavn.
var5 = Mid(var1, var4+1, 1) 'Finder 1. bogstav i efternavnet.
var3 = Left(var1,var4) & UCase(var5) & Right(var1,CInt(varL-var4-1)) 'Laver 1. bogstav i efternavnet stort og sammensætter Strengen igen.
Navn = Replace(var3,",",".") 'Erstatter "," med "."

Trimmerfunktion = strengen

End Function
%>

Og så kan du kalde funktionen sådan her

<%
Fornavn = Trimmerfunktion(Request.Form("requiredfornavn"))
Efternavn = Trimmerfunktion(Request.Form("requiredefternavn"))

SQL = "INSERT INTO femina(fornavn, efternavn) values('" & Fornavn & "','" & Efternavn & "')"
Conn.Execute(SQL)%>

Du kan se et eksempel som jeg har lavet her.

http://www.websamba.com/denpei/exp/355977

Hvis der er mellemrum foran input, bliver det ikke fjernet, så første bogstav bliver ikke ændret til stort :-(

Så laver du den bare sådan her for at være sikker.

<%
Function Trimmerfunktion(strengen)

var1 = strengen
var1 = LCase(var1) 'Laver METte JENSen til mette jensen(Lower-Case) 
var1 = RTrim(var1)
var1 = LTrim(var1) 
varL = Len(var1) 'Tæller antal tegn i strengen
varR = Right(var1,varL-1) 'Alle tegn undtagen det første.
var1 = UCase(Left(var1,1)) & varR 'Laver første bogstavt stort og sammensætter Strengen igen.
var4 = Instr(1, var1, " ", 1) 'Finder mellemrummet mellem fornavn og efternavn.
var5 = Mid(var1, var4+1, 1) 'Finder 1. bogstav i efternavnet.
var3 = Left(var1,var4) & UCase(var5) & Right(var1,CInt(varL-var4-1)) 'Laver 1. bogstav i efternavnet stort og sammensætter Strengen igen.
Navn = Replace(var3,",",".") 'Erstatter "," med "."

Trimmerfunktion = strengen

End Function
%>

Sorry en copy paster fejl...

Det skal være denne funktion
<%
Function Trimmerfunktion(strengen)

var1 = strengen
var1 = LCase(var1) 'Laver METte JENSen til mette jensen(Lower-Case) 
var1 = Trim(var1) 'Fjerner mellemrum foran og bagefter
varL = Len(var1) 'Tæller antal tegn i strengen
varR = Right(var1,varL-1) 'Alle tegn undtagen det første.
var1 = UCase(Left(var1,1)) & varR 'Laver første bogstavt stort og sammensætter Strengen igen.
var4 = Instr(1, var1, " ", 1) 'Finder mellemrummet mellem fornavn og efternavn.
var5 = Mid(var1, var4+1, 1) 'Finder 1. bogstav i efternavnet.
var3 = Left(var1,var4) & UCase(var5) & Right(var1,CInt(varL-var4-1)) 'Laver 1. bogstav i efternavnet stort og sammensætter Strengen igen.
Navn = Replace(var3,",",".") 'Erstatter "," med "."

Trimmerfunktion = Navn

End Function
%>

I denne funktion er der også taget højde for flere efternavne/fornavne.

Og så glemte jeg funktionen.. :P

<%
Function Trimmerfunktion(strengen)
var1 = Trim(strengen)  'Fjerner mellemrum foran og bagefter
var1 = LCase(var1) 'Laver METte JENSen til mette jensen(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)) 'Laver første bogstavt stort og sammensætter Strengen igen.
var3 = var3 &" "& var1 & Right(Streng,varL)
Next
Navn = Replace(var3,",",".") 'Erstatter "," med "."

Trimmerfunktion = Navn

End Function
%>

Så vriker den - god søndag ;-)