08. august 2002 - 18:18
Der er
3 kommentarer og
1 løsning
danske tegn fra access til tekstfil
Hej
Jeg har et problem: Jeg har en tabel med navne på dansk, inkl. æøå. Jeg skal generere en .reg fil hvor navnet skal indgå - det går fint, altså bortset fra de danske tegn!
Jeg bruger følgende kode, knyttet til en kommandoknap:
Dim x
Dim y
Dim nogle
Dim v
Dim apo
apo = Chr$(34)
x = [Forms]![vælg Placering]![Tekst2]
y = "REGEDIT4"
nogle= "[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]"
v = "Comment"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\placering.reg", True)
a.WriteLine (y)
a.WriteLine
a.WriteLine (nogle)
a.WriteLine (apo & v & apo & "=" & apo & x & apo)
a.Close
Shell ("c:\windows\regedit.exe /s c:\placering.reg")
egentlig meget enkelt - men hvordan pokker får jeg de danske tegn rigtige?
Jens Nielsen
09. august 2002 - 08:34
#1
Jeg har en funktion her der gør der den anden vej ( DOS til Windows )
Måske kan du nemt lige vende den.
Public Function fhpConvertFromDOS(strConvString As String) As String
' -----------------------------------------------------------------------------------
' Purpose : Converts Danish DOS chars to Windows
' Called from :
' Returns :
' Remarks :
' -----------------------------------------------------------------------------------
Dim x As Integer
strConvString = RTrim$(strConvString)
strConvString = LTrim$(strConvString)
For x = 1 To Len(strConvString)
If Mid$(strConvString, x, 1) = Chr$(155) Then 'DOS karakter for ø
Mid$(strConvString, x, 1) = "ø"
End If
Next x
For x = 1 To Len(strConvString)
If Mid$(strConvString, x, 1) = Chr$(157) Then 'DOS karakter for Ø
Mid$(strConvString, x, 1) = "Ø"
End If
Next x
For x = 1 To Len(strConvString)
If Mid$(strConvString, x, 1) = Chr$(145) Then 'DOS karakter for æ
Mid$(strConvString, x, 1) = "æ"
End If
Next x
For x = 1 To Len(strConvString)
If Mid$(strConvString, x, 1) = Chr$(146) Then 'DOS karakter for Æ
Mid$(strConvString, x, 1) = "Æ"
End If
Next x
For x = 1 To Len(strConvString)
If Mid$(strConvString, x, 1) = Chr$(134) Then 'DOS karakter for å
Mid$(strConvString, x, 1) = "å"
End If
Next x
For x = 1 To Len(strConvString)
If Mid$(strConvString, x, 1) = Chr$(143) Then 'DOS karakter for Å
Mid$(strConvString, x, 1) = "Å"
End If
Next x
fhpConvertFromDOS = strConvString
End Function
PS. Hvorfor skriver du ikke direkte i registreringsdatabasen ?
