|
AdjustCompanyName
(XAPI2000)
Deklaration
Function AdjustCompanyName (S As String) As Boolean
Beskrivning
Formaterar en sträng (parametern S) som innehåller ett
företagsnamn. Funktionen konverterar bokstäver till versaler och
gemener vid lämpliga ställen i strängen. Första bokstaven i varje
ord konverteras till en versal medan övriga bokstäver i ordet konverteras
till gemener. Funktioner tar hänsyn till vissa förkortningar såsom
"AB", "KB", "HB" osv. Skriver man in t ex "DATAFIRMAN AB" omvandlas
texten till "Datafirman AB".
Funktionen tar även hänsyn till
företagsförkortningar såsom "IBM", "ABB" osv. Alla namn kortare
än 4 tecken betraktas som förkortningar. Funktionen känner även
igen specialord såsom "i", "på", "och", "von" osv som alltid ska
vara gemener. Skriver man in t ex "DATAFIRMAN I GÖTEBORG AB" omvandlas
texten till "Datafirman i Göteborg AB". Ska en enskild bokstav i
ett ord tvingas till en versal kan man skriva ett ">" före bokstaven.
Tex omvandlas texten "SAM>LOGIC" till "SamLogic". Är första tecknet
i strängen en stjärna (" * ") så utförs ingen formatering.
Denna funktion är användbar i
samband med registrering av företagsuppgifter till en databas (t
ex ett kundregister). Inskrivning av data går snabbare då registreraren
slipper tänka på formateringen. Andra användbara funktioner i
VB Super Library som snabbar upp registrering av data och minskar
felen är BankgiroValid,
OrgnrValid,
PnrValid och XPNrGetPlace.
Returvärden
Funktionen returnerar True om allt gått bra eller
False vid fel. |
Exempel
Dim S As String
Dim bSt As Boolean
S = "DATAFIRMAN I GÖTEBORG AB"
bSt = AdjustCompanyName(S) ' Ger S = "Datafirman
i Göteborg AB"
|
