Domino 9 und frühere Versionen > ND6: Entwicklung

DTA Dateien per Script lesen / schreiben

<< < (2/4) > >>

koehlerbv:
Bin ich nur bescheuert - ich bekomme bei Binary auch die merkwürdigsten Resultate ... Ich bin aber dran.

Bernhard

AC:
Hi Glombi,

ich hab mit nem Kollegen bei meiner alten Firma mal was gemacht bei dem Bankeinzüge auf Diskette geschrieben wurden und dann zusammen mit Datenträgerbegleitschein an die Bank übergeben wurde, damit die Bank dann die Einzüge eintreibt.

Wenn ich mich recht erinnere war das eine feste Satzlänge bei den einzelnen Datensätzen.

Ist es sowas was Du brauchst ?
Wenn ja, dann müsste ich mal zu hause auf meinen alten Rechnern wühlen.


Laß michs wissen, wenn ich nachdem zu Hause mal suchen soll. (wenn Du das in Grundzügen brauchst, was ich oben schrieb.)

Gruß Holcomb

Glombi:
Genau das brauche ich.
Ich will aus einer dta die Records lesen, nach nicht erlaubten Zeichen suchen und diese dann löschen. Dazu wollte ich Record für Record lesen, suchen und ersetzen und dann in eine neue Datei schreiben.
Aber ich kriege nicht mal das lesen hin  :(
Wahrscheinlich muss man noch Unicode oder sowas umwandeln...

Andreas

AC:
Ich guck mal zu Hause auf alten Rechnern nach.
Ist schon vier bis 5 Jahre her, daß wir das gemacht haben und wir haben die Datei nur geschrieben nicht gelesen.
Kann mich nicht mehr richtig dran erinnern wie wir das gemacht haben.
Mal sehen was ich noch finde

Bis morgen. Holcomb

koehlerbv:
Also, Binary geht schon erstmal. Wichtig: Dieses Konstrukt funktioniert (logischerweise) nur in R6. Für R5 muss ich mir noch was ausdenken, das es den Datentype Byte dort ja nicht gibt und Integer immer dann scheitert, wenn die FileLen ungerade ist.


--- Code: ---Sub Click(Source As Button)
   
   Dim iFileNum As Integer
   Dim szFileName As String
   Dim iPosition As Integer
   Dim szResult As String
   Dim szChar As String
   Dim iByte As Byte
   
   iPosition = 1
   iFileNum = Freefile ()
   szFileName = "c:\tmp\0test.txt"
   
   Open szFileName For Binary As #iFileNum
   
   Do Until Eof (iFileNum)
      Get iFileNum, , iByte
      szResult = szResult & Chr$ (iByte)
      iPosition = iPosition + 1
   Loop
   
   
   Close iFileNum   
   
   Msgbox szResult
End Sub
--- Ende Code ---

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete