VB Code mit Java ausführen lassen?

[joerg_b]

Hallo,

ich hab immer noch folgendes Problem:

Ich will eine Anwendung in Java schreiben, die zu Büro+ Next von Microtech einen Datenaustausch vornehmen soll.
BpNext hat eine COM Schnitstelle, bei der man C++, VB und auch Delphi Code abgeben kann, der wird verarbeitet und man bekommt die geänderten Daten zurück.
Jetzt liegt meine Ausbildung zum Programmierer schon eine Weile zurück, und ich muss dieses Projekt als Einstieg benutzen.
Gibt es irgendwas, ein Tutorial oder etwas in der Richtung, mit dem man sowas mal probeprogrammieren kann?

Option Explicit

Dim FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim TextFile
Set TextFile = FSO.CreateTextFile("C:\feldliste.lst",true,false)

Dim BpNT
Set BpNT = WScript.CreateObject("BpNT.Application")

Call BpNT.Init ("Firmenname","","Anmeldename","Passwort")
Call BpNT.SelectMand ("MandantenNummer")

Sub DoDataSet(aSpaces,aDataSetInfo,aName)
  Dim FieldInfo
  Dim Index
  Dim IndexField
  Dim NestedDataSet
  Dim Access

  TextFile.WriteLine(aSpaces & aName & aDataSetInfo.Name & " - " & aDataSetInfo.Bez)
  For Each FieldInfo in aDataSetInfo.Fields
    if FieldInfo.CanAccess then
      Access = " +"
    else
      Access = " /"
    End If
    If FieldInfo.IsCalcField Then
      TextFile.WriteLine(aSpaces & "  Field: *" & FieldInfo.Name & " - " & FieldInfo.Info & " (" & FieldInfo.FieldType & ")" & Access)
    Else
      TextFile.WriteLine(aSpaces & "  Field: " & FieldInfo.Name & " - " & FieldInfo.Info & " (" & FieldInfo.FieldType & ")" & Access)
    End If
  Next
  For Each Index in aDataSetInfo.Indices
    TextFile.WriteLine(aSpaces & "  Index: " & Index.Name & " - " & Index.Info)
    For Each IndexField in Index.IndexFields
      TextFile.WriteLine(aSpaces & "    IndexField:" & IndexField.Name & " - " & IndexField.Info)
    Next
  Next
  For Each NestedDataSet in aDataSetInfo.NestedDataSets
    call DoDataSet("  " & aSpaces,NestedDataSet, "NestedDataSet: ")
  Next
End Sub

Dim DataSetInfo

For Each DataSetInfo in BpNT.DataSetInfos
  call DoDataSet("",DataSetInfo,"DataSet: ")
  TextFile.WriteLine("")
Next

TextFile.Close

MsgBox ("Alles ausgelesen!")

Hier mal eine Beispielanwendung in VB

Hoffentlich kann da jemand was mit anfangen.

MfG

Jörg

 

[sign]

Willst du den Code in Java übersetzen oder dein VB-Programm mit Java starten und überwachen??

 

[joerg_b]

Ich muss den Code mit Java ausführen und das Ergebnis in Java weiterverarbeiten.