Programm liest immer das selbe aus

  • Allgemein

    Programm liest immer das selbe aus

    Hi,

    habe den Coden wie folgt modifiziert:



    VB.NET-Quellcode

    1. Sub DDE1()
    2. Dim a$
    3. Dim Kanal
    4. Dim Result$
    5. Dim Command_$
    6. Do
    7. a$ = WordBasic.[GetPrivateProfileString$]("Main", "PrgPath", "vrn2007.ini") + "\vrn2007.EXE"
    8. If WordBasic.AppIsRunning("Anwalt- und Notarverzeichnis 2007 - 8. Edition") = 0 Then
    9. WordBasic.Shell a$
    10. WordBasic.AppActivate "Microsoft Word", 1
    11. End If
    12. Kanal = WordBasic.DDEInitiate("vrn2007", "vrn")
    13. WordBasic.DDEExecute Kanal, "GetData"
    14. Result$ = WordBasic.[DDERequest$](Kanal, "DDEResult")
    15. If (Result$ <> "") Then
    16. WordBasic.MsgBox Result$, "Anwalt- und Notarverzeichnis 2007 - 8. Edition", 32
    17. Else
    18. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName1")
    19. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName2")
    20. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName3")
    21. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDETitel")
    22. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAkad")
    23. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdel")
    24. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdresse")
    25. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEKommunikation")
    26. End If
    27. WordBasic.DDETerminateAll
    28. Loop Until Result$ <> ""
    29. WordBasic.DDETerminateAll
    30. End Sub


    Das Programm liest auch Adressen aus, nur leider immer die selbe... Was muss ich machen um alle nacheinander auszulesen???


    Hier der 2.Code, bei dem ich k.A. hab wofür der ist:

    VB.NET-Quellcode

    1. Public Sub MAIN()
    2. Dim a$
    3. Dim Kanal
    4. Dim Result$
    5. Dim Command_$
    6. a$ = WordBasic.[GetPrivateProfileString$]("Main", "PrgPath", "vrn2007.ini") + "\vrn2007.EXE"
    7. If WordBasic.AppIsRunning("Anwalt- und Notarverzeichnis 2007 - 8. Edition") = 0 Then
    8. WordBasic.Shell a$
    9. WordBasic.AppActivate "Microsoft Word", 1
    10. End If
    11. Kanal = WordBasic.DDEInitiate("vrn2007", "vrn")
    12. Command_$ = ""
    13. Command_$ = Command_$ + "Search" + Chr(13)
    14. Command_$ = Command_$ + "ObjektName=Abel" + Chr(13)
    15. Command_$ = Command_$ + "ObjektVorname=Susanne" + Chr(13)
    16. Command_$ = Command_$ + "ObjektPLZOrt=52072" + Chr(13)
    17. Command_$ = Command_$ + "ObjektAG=Aachen" + Chr(13)
    18. Command_$ = Command_$ + "ObjektLKZ=D" + Chr(13)
    19. Command_$ = Command_$ + "ObjektTyp=Rechtsanwalt/Rechtsanwältin" + Chr(13)
    20. WordBasic.DDEExecute Kanal, Command_$
    21. Result$ = WordBasic.[DDERequest$](Kanal, "DDEResult")
    22. If (Result$ <> "") Then
    23. WordBasic.MsgBox Result$, "Anwalt- und Notarverzeichnis 2007 - 8. Edition", 32
    24. Else
    25. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName1")
    26. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName2")
    27. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName3")
    28. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDETitel")
    29. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAkad")
    30. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdel")
    31. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdresse")
    32. WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEKommunikation")
    33. End If
    34. WordBasic.DDEExecute Kanal, "Close"
    35. WordBasic.DDETerminateAll
    36. End Sub



    Hier noch ein Screenshot der Hilfedatei:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dani333444“ ()

Facebook
Telefonspende