Position oder Copy in Intrasys Datenbank
20.07.2020 14:50:50
Timo
ich habe ein mittelschweres Problem in meiner Datenabfrage. Ich bediene über meine Excel Datei ein uraltes System, welches über Intra-SYS All in One von IBM angezeigt wird. Am Ende verbirgt sich dahinter aber nur eine alte Datenbank. In meiner Excelmappe habe ich z.B. den folgenden Befehl, der einwandfrei funktioniert:
Public Function isyGetFromIntraSys(ByVal position As Integer, ByVal laenge As Integer, Optional _
ByVal Session As String = "") As String
On Error GoTo isyGetFromIntraSys_err
Dim sCol As Long, sRow As Long
sRow = 1
Do While position > 80
sRow = sRow + 1
position = position - 80
Loop
sCol = position
isyGetFromIntraSys = IsyGetScreen(True, Session).getstring(sRow, sCol, laenge)
Exit Function
isyGetFromIntraSys_err:
isyGetFromIntraSys = ""
End Function
Nun zu meinem genauen Problem:
Ich müsste in einem Fall wissen, an welcher Position der Curser ist oder was eben genau dort steht, wo der Curser sich befindet. Visuell kann ich einfach unten die Curserposition ablesen, allerdings liegt diese Anzeige außerhalb des 24x 80 Rasters und ist damit nicht einfach so auszulesen.
Hat jemand eine Idee oder auch nur eine Ahnung, was mein Problem ist oder wie ich es besser beschreiben kann?
Bin echt etwas am verzweifeln... Probiere mich aber auch erst seit 5 Stunden daran ;P
VG Timo
