Hi,
ich stehe vor einem Problem. Ich muss die Visualisierung einer alten Maschine von Deutsch ins Spanische übersetzen. Da die Programmiersoftware (B&R ProSys) noch ein altes Dos-Programm ist, ist das Handling ziemlich umständlich und langsam.
Alle Strings die übersetzt werden müssen befinden sich in einer Datei (.PRG).
Kleiner Auszug:
B&R 34.48 P 06988A00-212.02.9117:20 2 í3T Ü7 C³Cûwú13048906988A00 =6yŒ x --------------------------------------------------------------------------------ö --------------------------------------------------------------------------------¼ *ÿ 00 -- SE00ÿ MENUEÿ- %*ÿ 02 -- SE01ÿ HEIZKOERPER OBENÿ" &*ÿ 04 -- SE1Aÿ HEIZKOERPER UNTENÿ! *ÿ 14 --ÿ "\" Then vsPath = vsPath & "\"
strFileName = vsPath & vsFileName
strTempFile = vsPath & "Temp_" & vsFileName
FileCopy strFileName, strTempFile
FN1 = FreeFile()
Open strTempFile For Input As #FN1
FN2 = FreeFile()
Open strFileName For Output As #FN2
Do While Not EOF(FN1)
Line Input #FN1, strLine
If InStr(1, strLine, vsFind, bCompare) > 0 Then
strLine = _
Replace(strLine, vsFind, vsReplace, , , bCompare)
End If
IIf Len(Trim$(strLine)) = 0 And bDeleteLines Then
Else
Print #FN2, strLine
End If
Loop
Close #FN2
Close #FN1
Kill strTempFile
MsgBox "Der Vorgang wurde erfolgreich abgeschlossen ;-)", _
vbInformation, "Fertig"
Exit Sub
err_Handler:
MsgBox Err.Description, vbCritical, "Fehler"
End Sub
Er funktioniert jedoch nicht. Mit „Line Input #FN1, strLine“ soll eine Zeile gelesen werden. Das PRG-File scheint jedoch keinen Zeilenumbruch zu besitzen. In „strLine“ steht nur ein Bruchteil des Files. Es sind vermutlich 256 Zeichen. Im 2. Durchlauf der While Schleife wird EOF erreicht.
Kann mir bitte jemand helfen. Es soll ein bestimmter String gesucht und durch einen anderen ersetzt werden. Dabei darf natürlich die Dateistruktur des PRG-Files nicht zerstört werden.
Danke im vorraus,
Andi
|