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
I går 18:09 Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27 renteberegning Af Pil i Excel
White papers
Flere white papers »


Premium
Teaser billede
Microsoft blokerer: Du kan ikke længere installere stor Windows-opdatering, hvis disse pc-spil ligger på din pc
Læs mere »
Oracle i Danmark fordobler overskuddet efter stor reduktion af medarbejderstaben
Microsoft lukker licens-platform: Partnere har til årets udgang
Nu ændres de danske skatteregler for software: Nye regler kan få store konsekvenser - træder i kraft til nytår
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Sikkerhed uden grænser: Cisco Hypershield
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Se alle »

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