TXT Datei aus Excel in isländisch, norwegisch, etc
08.02.2018 19:31:06
Oliver
Das klappt auch Prima.
Bis auf bei Sprachen mit vielen Sonderzeichen (Bspw. Isländisch, Norwegisch oder Polnisch) - in diesen Sprachen werden die Sonderzeichen als "_" dargestellt.
Ich verwende derzeit folgendes Script:
Sub Localization_Files_bauen()
Dim i, y, a, b, zaehler As Integer
Dim LetzteZeileMainStrings, LetzteSpalteMainStrings As Integer
Dim Eintrag, Filebezeichnung, Filename As String
zaehler = 1
Sheets("LocalizationStrings").Select
LetzteZeileLocalizationStrings = Sheets("LocalizationStrings").UsedRange.SpecialCells( _
xlCellTypeLastCell).Row
LetzteSpalteLocalizationStrings = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
Sheets("LocalizationStrings").Select
For y = 4 To LetzteSpalteLocalizationStrings
Filebezeichnung = Sheets("LocalizationStrings").Cells(1, y)
Filename = "LocalizationStrings" & Filebezeichnung & ".txt"
Open Filename For Output As #1
For i = 2 To LetzteZeileLocalizationStrings
If Sheets("LocalizationStrings").Cells(i, 1) "" And Not Sheets(" _
LocalizationStrings").Cells(i, 1) Like "/*" Then
Eintrag = "/*Base: " & Sheets("LocalizationStrings").Cells(i, 1) & " Screen: " _
_
& Sheets("LocalizationStrings").Cells(i, 2) & " ID: " & Sheets("LocalizationStrings").Cells(i, _
3) & " */ " & Chr(34) & Sheets("LocalizationStrings").Cells(i, 1) & Chr(34) & " = " & Chr(34) & Sheets("LocalizationStrings").Cells(i, y) & Chr(34) & ";"
zaehler = zaehler + 1
Print #1, Eintrag
End If
Next i
Close #1
Next y End Sub