Format / Første bogstav med stort, resten med småt

hov, rigtig kode er:

act.WriteLine("<td align=""left"">"& objRs("Country") & "</td>")

UCase(left(objRs("Country"),1)) & lCase(mid(objRs("Country"),2))

Smukt, fennec! Men hvis nu der står "UNITED STATES", så bliver det til United states. Kan man tage forbehold for det også?

Sådan?

country = objRs("Country")
countryArr = Split(" ", country)

country = ""
For idx = LBound(countryArr) To UBound(countryArr)
    If country <> "" Then country = country & " "
    country = country & UCase(Left(countryArr(idx)), 1)) & LCase(Mid(countryArr(idx), 2))
Next

countryArr = Split(country, " ")

eller blot:

countryArr = Split(country)

Jeps. Præsis som nielle har lavet det :o)

Evt som en funktion så den er til at kalde:

function WriteCountry(fCountry)
dim fArr, fRetur, ff
  fArr = Split(fCountry, " ")
  fRetur = ""
  For ff = LBound(fArr) To UBound(fArr)
    If fRetur<> "" Then fRetur= fRetur& " "
    fRetur= fRetur& UCase(Left(fArr(ff)), 1)) & LCase(Mid(fArr(ff), 2))
  Next
  WriteCountry = fRetur
end function

Man kunne også vinde en smule effektivitet ved kun at kalde LCase en gang:

function WriteCountry(fCountry)
dim fArr, fRetur, ff
  fArr = Split(LCase(fCountry), " ")
  fRetur = ""
  For ff = LBound(fArr) To UBound(fArr)
    If fRetur<> "" Then fRetur = fRetur & " "
    fRetur = fRetur & UCase(Left(fArr(ff)), 1)) & Mid(fArr(ff), 2)
  Next
  WriteCountry = fRetur
end function

Jeg ved dog ikke om det liiiige er noget som virkeligt kan måles ;^)

Herligt, men fennec's kode giver fejlen:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
create_xls_B.asp, line 11, column 40
fRetur= fRetur& UCase(Left(fArr(ff)), 1)) & LCase(Mid(fArr(ff), 2))

Jeg kan godt placere den kode før min SQL, ikke? Hvordan får jeg værdien indsat i stedet for objRs("Country")?

Funktionen burde virke som den er, og kan placeres hvor som helst. Den bruges så sådan her:

act.WriteLine("<td align=""left"">"& WriteCountry(objRs("Country")) & "</td>")

Der var en lille parentes for meget ved UCase-kaldet. Sådan:

Function WriteCountry(fCountry)
    dim fArr, fRetur, ff
    fArr = Split(LCase(fCountry), " ")
    fRetur = ""
    For ff = LBound(fArr) To UBound(fArr)
        If fRetur<> "" Then fRetur = fRetur & " "
        fRetur = fRetur & UCase(Left(fArr(ff)), 1) & Mid(fArr(ff), 2)
    Next
    WriteCountry = fRetur
End Function

Ja, funktionen kan godt placeres i toppen af din side hvis du ønsker det.

Sådan!

fRetur = fRetur & UCase(Left(fArr(ff), 1)) & Mid(fArr(ff), 2)

Ahh der er kommet et ) for meget:
fRetur= fRetur& UCase(Left(fArr(ff)), 1)) & LCase(Mid(fArr(ff), 2))

Skal være:
fRetur= fRetur& UCase(Left(fArr(ff), 1)) & LCase(Mid(fArr(ff), 2))

Så nielle også :o)

Det er kunst! Det virker efter hensigten. Ret beset burde jeg vel lave dette allerede når data skrives ned i databasen, ikke? Således at data kommer rigtigt ned i første hug.

Vil jeg kunne bruge jeres kode i min INSERT-kode (kun en del vist her), der også har en replace med?:
Replace(Request.Form("Country"),"'","''")

PS: Smid et svar i to eksperter!

Ja, det kan du sagtens:

Replace(WriteCountry(Request.Form("Country")), "'", "''")

Det ville endda hjælpe på performance at gøre det den vej rundt - for så skal det kun gøres een gang i alt i stedet for hver gang ved udtræk.

Springer over på denne her. Tog jo sådan set bare fennec's oprindelige kode og begyndte at lege lidt med den. Men ellers tak for tilbuddet. :^)

.o) <-- One Eyed Jack

nielle: du har så noget til gode ;-) God weekend til jer begge. Jeg tror jeg bruger jeres kode allerede i starten.