CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede molehonter Mester
24. april 2018 - 09:16 Der er 4 kommentarer

VBA replace()

Kan jeg forenkle denne kode del i VBA, jeg bruger det i en script til at hente afstande og tid i google maps.

strFrom = Replace(strFrom, "ø", "oe")
strFrom = Replace(strFrom, "Ø", "OE")
strFrom = Replace(strFrom, "æ", "ae")
strFrom = Replace(strFrom, "Æ", "AE")
strFrom = Replace(strFrom, "å", "aa")
strFrom = Replace(strFrom, "Å", "AA")
strTo = Replace(strTo, "ø", "oe")
strTo = Replace(strTo, "Ø", "OE")
strTo = Replace(strTo, "æ", "ae")
strTo = Replace(strTo, "Æ", "AE")
strTo = Replace(strTo, "å", "aa")
strTo = Replace(strTo, "Å", "AA")

kom gerne med ideer og løsninger.
Avatar billede finb Ekspert
24. april 2018 - 09:51 #1
Du kan putte alle replace
indeni hinanden:
strFrom = Replace( Replace(strFrom, "ø", "oe") , "Ø", "OE")
osv.osv.
Avatar billede Dan Elgaard Ekspert
24. april 2018 - 10:07 #2
strFrom = Replace(Replace(Replace(LCase$(strFrom), "æ", "ae"), "ø", "oe"), "å", "aa")

strTo = Replace(Replace(Replace(LCase$(strTo), "æ", "ae"), "ø", "oe"), "å", "aa")
Avatar billede molehonter Mester
24. april 2018 - 10:10 #3
Den skal jeg lige prøve af.
Avatar billede arne_v Ekspert
25. april 2018 - 03:26 #4
Jeg ville overveje en stil som:

a1 = array("æ", "ø", "å")
a2 = array("ae", "oe", "aa")

function dk2uk(s)
    res = s
    for i = lbound(a1) to ubound(a1)
        res = replace(res, a1(i), a2(i))
    next
    dk2uk = res
end function

og kalde dk2uk med den streng som skal konverteres.

Det er nemmere at tilfoeje flere tegn.
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
53 min siden Korrupt CF kort Af Mozcan i Foto & video
I går 21:34 install.esd og boot.wim Af sjass i Windows
I går 18:52 Nyt tekstdokument er forsvundet. Af valby i Windows
I går 16:48 "Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
25/1219:53 CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder
Læs mere »
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan
CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Sådan gør du: Elektronisk dokumentudveksling i praksis
Læs mere »
Beskyt virksomheden mod trusler – og hold ressourceforbruget nede
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Sådan: Én løsning til compliance, sikkerhed og overblik
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »