hvilke tegn er de her ?

Jeg har rodet med noget lignende før. Det har at gøre med den codepage, du importerede fra. Giver det dig et clue?

nope

Jeg fandt lige denne funktion fra gemmerne:

Du bruger den således:

= fixtegn("dintekst",1)
for at konvertere til normalt tekst.

Lad mig høre om det virker :-)


Function FixTegn(tekst As String, Normal1Speciel2 As Integer) As String
'   = Ø
'  › = ø
'  † = å
'   = Å
'  ‘ = æ
'  ’ = Æ
'  ™ = ö
'  Ž = Ä

If Normal1Speciel2 = 1 Then
    'til normal
    tekst = Replace(tekst, "›", "ø")    '155/248
    tekst = Replace(tekst, "", "Ø")    '157/216
    tekst = Replace(tekst, "†", "å")    '134/229
    tekst = Replace(tekst, "", "Å")
    tekst = Replace(tekst, "‘", "æ")
    tekst = Replace(tekst, "’", "Æ")
    tekst = Replace(tekst, "™", "ö")
    tekst = Replace(tekst, "Ž", "Ä")
End If

If Normal1Speciel2 = 2 Then
    'til special
    tekst = Replace(tekst, "ø", "›")    '248/155
    tekst = Replace(tekst, "Ø", "")    '216/157
    tekst = Replace(tekst, "å", "†")    '229/134
    tekst = Replace(tekst, "Å", "")
    tekst = Replace(tekst, "æ", "‘")
    tekst = Replace(tekst, "Æ", "’")
    tekst = Replace(tekst, "ö", "™")
    tekst = Replace(tekst, "Ä", "Ž")
End If
'Debug.Print tekst
FixTegn = tekst
End Function

Du kan bruge den før du importerer for at "rense" dine data eller evt. bare bagefter.

tingene står også sådan :
†
›
‘
i den fil jeg henter fra men der har jeg ikke meget indflydelse på

og betydning er
†  å
›  ø
‘  æ

jeg skal have en llille funktion som tester hver enkelt bogstav i en variabel og matcher de til
disse:

†
›
‘

skal de bare erstattes med de andre ?

skriver vi oveni hinanden her?
Gør funktionen ovenfor ikke det du ønsker?

hvordan sender jeg den som variabel istedet for
= fixtegn("dintekst",1)


= fixtegn(" & dintekst & ",1) virker ikke ?

lol.....jo vi har skrevet oveni hinanden , men hvordan sender jeg den som variabel istedet for
= fixtegn("dintekst",1)


= fixtegn(" & dintekst & ",1) virker ikke ?

hvis din variabel hedder    dintekst
skriver du bare

=fixtegn(dintekst,1)

Den melder
Compile error:

ByRef argument type mismatch

`har fået det til at virke kanonnn takker :)

Det var jo det med datatyperne.
Godt det virker :-)