Avatar billede ingeman Seniormester
14. august 2003 - 18:15 Der er 2 kommentarer og
1 løsning

Konverter streng

Jeg mangler en rutine som kan konverter

HESSELHOLT FISK EKSPORT A/S

til

Hesselholt Fisk Eksport a/s
Avatar billede paultodobom Nybegynder
15. august 2003 - 09:01 #1
Her har du et eks. skrevet i VBScript:

<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit

Dim GSTR_NAVN_TIL_KONV
GSTR_NAVN_TIL_KONV = "HESSELHOLT FISK EKSPORT A/S"
Dim idx, strTmp
strTmp = ""


For idx = 1 To Len(GSTR_NAVN_TIL_KONV)
    If idx = 1 Then
        ' Første tegn skal altid være med stort
        strTmp = strTmp + UCase(Mid(GSTR_NAVN_TIL_KONV, idx, 1))
    ElseIf Mid(GSTR_NAVN_TIL_KONV, idx-1, 1) = " " And Mid(GSTR_NAVN_TIL_KONV, idx+1, 1) <> "/" Then
        ' Hvis forrige tegn var blankt skal aktuelle være med stort, dog ikke hvis næste er /
        strTmp = strTmp + UCase(Mid(GSTR_NAVN_TIL_KONV, idx, 1))
    Else
        strTmp = strTmp + LCase(Mid(GSTR_NAVN_TIL_KONV, idx, 1))
    End If
Next
%>
<html>

<head>
</head>

<body>
<%
Response.Write GSTR_NAVN_TIL_KONV & "<br>"
Response.Write strTmp
%>
</body>

</html>
Avatar billede ingeman Seniormester
15. august 2003 - 14:16 #2
Det virker - Ok tak for hjælpen.
Avatar billede paultodobom Nybegynder
15. august 2003 - 14:30 #3
herligt! takker for p. God weekend. :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester