Thema Datum  Von Nutzer Rating
Antwort
Rot Text suchen und ersetzten
 07.02.2007 08:09:22 Andi
NotSolved
07.02.2007 11:23:18 Rasta
NotSolved
07.02.2007 11:45:12 Andi
NotSolved

Ansicht des Beitrags:
Von:
Andi		 Datum:
07.02.2007 08:09:22		 Views:
1936		 Rating:
     
Antwort:
  Ja
Thema:
Text suchen und ersetzten
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Text suchen und ersetzten
 07.02.2007 08:09:22 Andi
NotSolved
07.02.2007 11:23:18 Rasta
NotSolved
07.02.2007 11:45:12 Andi
NotSolved