2 For Schleifen gleichzeitig

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    2 For Schleifen gleichzeitig

    Hey,

    ich stehe vor einem kleinen Problem..

    Ich habe 2 For Schleifen.
    Eine geht durch alle Ordner im Startordner und speichert den Namen jeweils dann in einem String (Zeile für Zeile).
    Die zweite Schleife geht durch alle aktiven Fensternamen und speichert diese dann auch in einem String (Auch hier: Für jeden Fensternamen eine neue Zeile)

    Das ganze sieht so aus:

    VB.NET-Quellcode

    1. Dim Folders As String
    2. For Each Dir As String In System.IO.Directory.GetDirectories(My.Computer.FileSystem.CurrentDirectory & "\Data\")
    3. Dim dirInfo As New System.IO.DirectoryInfo(Dir)
    4. Folders = Folders & dirInfo.Name & "~"
    5. Next
    7. Dim str As String() = Folders.Split("~")
    8. For Each s As String In str
    9. 's ist jedes mal der nächste Ordner dann
    10. Next
    13. Dim p As Process
    14. Dim Windows As String
    15. For Each p In Process.GetProcesses
    16. Windows = Windows & vbNewLine & p.MainWindowTitle.ToString
    17. Next
    18. Windows = LineTrim(Windows)
    19. Dim Ar() As String = Split(Windows, Environment.NewLine)
    20. For Each sX As String In Ar
    21. 'sX ist dann immer ein Fenstername
    22. Next



    Was ich nun erreichen möchte:
    Abfragen ob ein Spezielles Fenster schon existiert, in dessen Name dann einer dieser Ordner vorkommt.
    Das Fenster heißt sowas wie "Gesuchtes Fenster - (Hier einer der Ordnernamen)".

    Falls das Fenster nicht gefunden wurde, dann soll es erstellt werden, das ist aber nicht das Problem.
    Habe schon einiges probiert, aber alles endet darin, dass diese Fenstererstellung gespammed wird.

    Das ist einer der Versuche mit kompletten Code, von dem, was ich vorhabe:

    VB.NET-Quellcode

    1. Dim Folders As String
    2. For Each Dir As String In System.IO.Directory.GetDirectories(My.Computer.FileSystem.CurrentDirectory & "\Data\")
    3. Dim dirInfo As New System.IO.DirectoryInfo(Dir)
    4. Folders = Folders & dirInfo.Name & "~"
    5. Next
    7. Dim str As String() = Folders.Split("~")
    8. For Each s As String In str
    10. 'Console.WriteLine(s)
    11. If (My.Computer.FileSystem.FileExists(My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & "Status.txt")) Then
    12. Dim StartTime As String = Inireader.WertLesen("Settings", "StartTime", My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\Time.ini")
    13. Dim StopTime As String = Inireader.WertLesen("Settings", "StopTime", My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\Time.ini")
    14. If (IsInTime(StartTime, StopTime) = True) Then
    15. Log("X2")
    16. Dim p As Process
    17. Dim Windows As String
    18. For Each p In Process.GetProcesses
    19. Windows = Windows & vbNewLine & p.MainWindowTitle.ToString
    20. Next
    21. Windows = LineTrim(Windows)
    22. Dim Ar() As String = Split(Windows, Environment.NewLine)
    23. For Each sX As String In Ar
    24. If sX.ToString.Contains(s & " - python " & My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & s & ".py") Then ''''FEHLER
    25. Else
    26. Dim Path = My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & s & ".py"
    27. Dim startInfo As New ProcessStartInfo
    28. startInfo.FileName = "cmd.exe"
    29. startInfo.Arguments = "/k " & "title " & s & " & python " & Path
    30. startInfo.WorkingDirectory = My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\"
    31. Process.Start(startInfo)
    33. End If
    34. Next
    35. End If
    36. End If
    37. Next



    Kann mir wer auf die Sprünge helfen?
    Danke :)
    Lg


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

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

    die Folders und Windows je in einen String zu füllen ist natürlich ein untauglicher Ansatz.
    Nimm stattdessen Folders als String-Array ( wies ja bereits vorliegt), bzw und Windows als List(Of String).
    Dann kann folgende Function dir die Folder-Namen zurückliefern, auf die deine komische Bedingung zutrifft:

    VB.NET-Quellcode

    1. 'returnt eine Liste der folderNamen, auf die diese komische Bedingung zutrifft
    2. Private Function GetWindowFolders(folders As IEnumerable(Of String), windows As IEnumerable(Of String)) As List(Of String)
    3. ' If sX.ToString.Contains(s & " - python " & My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & s & ".py")
    4. Dim condition As Func(Of String, String, Boolean) =
    5. Function(folder, win) win.Contains(folder & " - python " & My.Computer.FileSystem.CurrentDirectory & "\Data\" & folder & "\" & folder & ".py")
    6. Return folders.Where(Function(folder) windows.Any(Function(win) condition(folder, win))).ToList
    7. End Function
    Übrigens wie immer: Benamung fundamental wichtig. Mit Namen wie s, sX kann man beim Code-Entwickeln kaum den Überblick behalten - was ein Folder- und was ein Window-Name ist.

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

    Danke erstmal :)

    Benutze es aber noch falsch.
    Möchte erstmal alle Ordnernamen ausgeben, auf die diese Bedinung zutrifft.

    Das klappt auch:

    VB.NET-Quellcode

    1. For Each Folder In GetWindowFolders(FolderList, WindowList)
    2. Console.WriteLine(Folder)
    3. Next


    Nun möchte ich, dass er aber nur die Ordner anzeigt, auf die diese Condition nicht zutrifft. Wo muss das Not hin in der GetWindowFolders Funktion? :D

    VB.NET-Quellcode

    1. Private Function GetWindowFolders(ByVal folders As IEnumerable(Of String), ByVal windows As IEnumerable(Of String)) As List(Of String)
    2. ' If sX.ToString.Contains(s & " - python " & My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & s & ".py")
    3. Dim condition As Func(Of String, String, Boolean) =
    4. Function(folder, win) win.Contains(folder & " - python " & My.Computer.FileSystem.CurrentDirectory & "\Data\" & folder & "\" & folder & ".py")
    5. Return folders.Where(Function(folder) windows.Any(Function(win) condition(folder, win))).ToList
    6. End Function
    8. Function Test()
    9. Dim Folders As String
    10. For Each Dir As String In System.IO.Directory.GetDirectories(My.Computer.FileSystem.CurrentDirectory & "\Data\")
    11. Dim dirInfo As New System.IO.DirectoryInfo(Dir)
    12. Folders = Folders & dirInfo.Name & "~"
    13. Next
    15. Dim FolderList() As String = Folders.Split("~")
    17. Dim p As Process
    18. Dim Windows As String
    19. For Each p In Process.GetProcesses
    20. Windows = Windows & vbNewLine & p.MainWindowTitle.ToString
    21. Next
    22. Windows = LineTrim(Windows)
    23. Dim WindowList() As String = Split(Windows, Environment.NewLine)
    25. For Each Folder In GetWindowFolders(FolderList, WindowList)
    26. Console.WriteLine(Folder)
    27. Next
    29. End Function


    Mfg. :)



    Edit: Nevermind, habe es gefixt, danke dir :)


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „xored“ ()

    xored schrieb:

    statt Den Ordner wo die Bedienung zutrifft
    Bist Du sicher, dass die Bedingung korrekt formuliert ist?
    Gib zunächst mal alle Namen aus und probier dann, die Bedingung schärfer zu formulieren, bis dann nur noch Deine Zielordner übrig bleiben.
    Besser ist es wohl, da keinen Einzeiler zu verwenden:

    VB.NET-Quellcode

    1. Return folders.Where(Function(folder) windows.Any(Function(win) condition(folder, win))).ToList
    sondern das in einer debug-baren Prozedur auszuformulieren.
    Zum Debuggen allgemein gugst Du hier: Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Habs doch schon gefixt :)

    Das ist der gesamte Code:

    VB.NET-Quellcode

    1. ​ Private Function GetWindowFolders(ByVal folders As IEnumerable(Of String), ByVal windows As IEnumerable(Of String)) As List(Of String)
    2. Dim condition As Func(Of String, String, Boolean) =
    3. Function(folder, win) win.Contains(folder & " - python " & My.Computer.FileSystem.CurrentDirectory & "\Data\" & folder & "\" & folder & ".py")
    4. Return folders.Where(Function(folder) Not windows.Any(Function(win) condition(folder, win))).ToList
    5. End Function
    7. Function StartAllClientsInTime()
    8. Dim Folders As String
    9. Dim FoldersFinished As String
    10. For Each Dir As String In System.IO.Directory.GetDirectories(My.Computer.FileSystem.CurrentDirectory & "\Data\")
    11. Dim dirInfo As New System.IO.DirectoryInfo(Dir)
    12. Folders = Folders & dirInfo.Name & "~"
    13. Next
    15. Dim FolderList() As String = Folders.Split("~")
    17. Dim p As Process
    18. Dim Windows As String
    19. For Each p In Process.GetProcesses
    20. Windows = Windows & vbNewLine & p.MainWindowTitle.ToString
    21. Next
    22. Windows = LineTrim(Windows)
    23. Dim WindowList() As String = Split(Windows, Environment.NewLine)
    24. Try
    26. For Each El In GetWindowFolders(FolderList, WindowList)
    28. FoldersFinished = FoldersFinished & El & "~"
    30. Next
    32. Dim str As String() = FoldersFinished.Split("~")
    33. For Each s As String In str
    35. If (My.Computer.FileSystem.FileExists(My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & "Status.txt")) Then
    37. Dim Status = My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\Status.txt")
    38. If (Status.Contains("Gestartet")) Then
    40. Dim StartTime As String = Inireader.WertLesen("Bot", "StartTime", My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\Time.ini")
    41. Dim StopTime As String = Inireader.WertLesen("Bot", "StopTime", My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\Time.ini")
    42. If (IsInTime(StartTime, StopTime) = True) Then
    45. Dim Path = My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\" & s & ".py"
    46. Dim startInfo As New ProcessStartInfo
    47. startInfo.FileName = "cmd.exe"
    48. startInfo.Arguments = "/k " & "title " & s & " & python " & Path
    49. startInfo.WorkingDirectory = My.Computer.FileSystem.CurrentDirectory & "\Data\" & s & "\"
    50. Process.Start(startInfo)
    52. End If
    53. End If
    54. End If
    55. Next
    56. Catch
    57. End Try
    59. End Function


    Klappt perfekt. Habe die s Variabeln noch nicht geändert, nehme den Tipp aber an und werde das zur Übersicht ändern :)
    Danke dir! :)


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

Facebook
Telefonspende