Thema: OA II .CND rückwandeln?
Einzelnen Beitrag anzeigen
Alt 20.01.2012, 10:52   #4
waldbauer.com
Entwickler
Danke Ludwig. Anbei das Beispiel mit der DBCONV.CND aus dem Tools oder OSA Verzeichnis. Die Programmdatei DBCONV.TXT sieht dann dekomprimiert entsprechend so aus:

Code:
! This program converts a dBASE file to an OA DF file
! 
! This program (DBCONV.CND) MUST be called from the APP.MNU 
! It assumes the DF file does not exist. 
! If an OA "PROBLEM" window appears OA will clear the keyboard buffer
! and no further command will be executed. 
! ----- 
! NOTE: key stroke calls are executes last in first out
! ----- 

dbname = ''
put at 10,5 'Enter dBASE file name: ' 
keys get dbname width 8 
   :k_do: 
     attach "typahead.oac"
     tchr = 'd'                    ! dispay database menu 
     OK = CALL('TYPECHAR',tchr) 
     tfkey = 0                 
     ok = call('typefkey',tfkey)
     tfkey = 0                     ! press ESC 
     ok = call('typefkey',tfkey)
     tfkey = 10                 
     ok = call('typefkey',tfkey)
     tfkey = 10                 
     ok = call('typefkey',tfkey)
     tfkey = 10                 
     ok = call('typefkey',tfkey)
     tchr = dbname                 ! enter an existing dBASE file name 
     OK = CALL('TYPECHAR',tchr) 
     tfkey = 10                    ! press F10 
     ok = call('typefkey',tfkey)
     tchr = 'fd'                   ! choose file convert database 
     OK = CALL('TYPECHAR',tchr) 
     tfkey = 8                     ! display desk top 
     ok = call('typefkey',tfkey)
     detach "typahead.oac"
   :k_undo:
end keys
Wie man sieht, werden die dazugehörigen Dateien ARR und BAT ebenfalls extrahiert.
Miniaturansicht angehängter Grafiken
Klicken Sie auf die Grafik für eine größere Ansicht

Name:	cnd1.jpg‎
Hits:	7
Größe:	82.7 KB
ID:	417  
waldbauer.com ist offline   Mit Zitat antworten