Compare im Edit_Fenster

littleman

Hallo Leutz,

habe eine Frage. ich habe ein Code, welches mit Powershell Daten abruft und die gelistet in einem Editor aufführt.
Jede Zeile hat einen Wert. Ich würde jetzt gerne beide Editoren vergleichen und gleiche Einträge löschen.
Habt Ihr vielleicht einen Tipp?

C

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <GuiEdit.au3>
#include <GuiMenu.au3>
#include <adfunctions1.au3>
#include <Constants.au3>


$Form =GUICreate("Compare Gruppen User", 588, 563, 486, 200)
					$aEdit1 = GUICtrlCreateEdit("", 32, 144, 241, 553)
					GUICtrlSetData(-1, "Edit1")
					$aEdit2 = GUICtrlCreateEdit("", 304, 144, 241, 553)
					GUICtrlSetData(-1, "Edit2")
					$aInput1 = GUICtrlCreateInput("Input1", 240, 72, 121, 21)
					$aInput2 = GUICtrlCreateInput("Input2", 376, 72, 121, 21)
					$aButton1 = GUICtrlCreateButton("Info", 240, 104, 257, 17)
					$aLabel1 = GUICtrlCreateLabel("Vergleich Benutzer 1 und Benutzer 2", 24, 72, 177, 17)
					GUISetState(@SW_SHOW)


Func _PowerShell_Command($sCommand)
					Local $iPID = Run(StringFormat('"%s" "%s"', 'C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe', $sCommand), @ScriptDir, @SW_HIDE, 0x2)
					Local $sOut
					Do
						$sOut &= StdoutRead($iPID)
					Until @error
					StdioClose($iPID)
					Return $sOut
EndFunc




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $aButton1
			MsgBox($MB_OK,"","test")


				$text1 = GUICtrlRead($aInput1)
				$text2 = GUICtrlRead($aInput2)
				$abfrage1 = (_PowerShell_Command('Get-ADPrincipalGroupMembership -Identity ' & $text1 & ' | select name | sort-object name'))
				$abfrage2 = (_PowerShell_Command('Get-ADPrincipalGroupMembership -Identity ' & $text2 & ' | select name | sort-object name'))
				_GUICtrlEdit_SetText($aEdit1, $abfrage1)
				_GUICtrlEdit_SetText($aEdit2, $abfrage2)


	EndSwitch
WEnd

Alles anzeigen

**autoiter**

Hallo @littleman,

Du kannst die jeweiligen Inhalte mit GUICtrlRead auslesen. Ich würde dann wahrscheinlich mit StringReplace oder StringSplit die Zeilen eines Edits ermitteln (anhand von @LF trennen) und dann in einer For .. To-Schleife die Zeilen vergleichen. Also Zeile für Zeile aus dem einen Editfeld mit dem kompletten Text des anderen (If StringinString) vergleichen und wenn ja, dann in beiden mit StringReplace durch nichts ersetzen. (If StringinString kannst du eigentlich auch weglassen und einfach für jede Zeile StringReplace ausführen, sollte das gleiche Ergebnis bringen).

littleman

Aber die Ausgabe könnte so aussehen:

Editor1 Editor2

Name	Name
Hund	Katze
Katze	Hund
Maus	Maus
Ratte	Fisch
Fisch	Kamel

Ich würde dann wollen, dass das Ergebnis so aussieht

Editor1 Editor2

Name	Name
Ratte	Kamel

**autoiter**

Willst du, dass man es für dich schreibt, oder wie?

littleman

Natürlich nicht, was soll ich den dabei lernen.
Aber wenn ich String für String vergleiche, dann vergleiche ich immer die erste Zeile und dann die Zweite Zeile, aber in meinem Beiepiel können die gleichen Werte in unterschiedlicher Reihe stehen.

**autoiter**

Ich meinte auch jede Zeile des einen Editcontrol mit dem gesamten Text des anderen Control zu vergleichen und dann mit StringReplace den Zeileninhalt, den du gesucht hast (plus @LF) zu löschen.
Um doppelte Einträge im Editcontrol, das du als "Referenz" benutzt, zu verhindern kannst du es mit StringSplit (am @LF) zu einem Array splitten und mit ArrayUnique die Dubletten löschen. Dann die angesprochene Schleife.
Ich hoffe das war verständlich? Klingt vllt. wirr, aber es sind wenige Zeilen Code (ein Profi zaubert dir das wahrscheinlich in zwei Zeilen).

littleman

Du Profi (ein Profi zaubert dir das wahrscheinlich in zwei Zeilen).
Ich schaue mal und melde mich

**BugFix**

Warum nutzt du nicht gleich Powershell für die Abfrage - wenn ich das richtig interpretiere, willst du die Gruppenzugehörigkeit für 2 Member vergleichen. Kommt nur drauf an, ob du die Übereinstimmungen oder Unterschiede suchst.

Komplexe PS-Skripte lassen sich aus AutoIt heraus super ausführen (wie ich nach zweitägigem K(r)ampf endlich herausgefunden habe).

Spoiler anzeigen

AutoIt

$sRet = _PowerShell_Run( _
	'[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")' & @CRLF & _
	'$MB = [System.Windows.Forms.MessageBox]' & @CRLF & _
	'$out = ""' & @CRLF & _
	'$out += "Hallo"' & @CRLF & _
	'$out += " Welt!"' & @CRLF & _
	'$result = $MB::Show("$out","WPS >> AutoIt",0)' & @CRLF _
	)




Func _PowerShell_Run($_sCmd, $_iOutput=0)
	Local Const $sKey32 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell"
	Local Const $sKey64 = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\PowerShell\1\ShellIds\Microsoft.PowerShell"
	Local Static $sKey = @CPUArch = 'X64' ? $sKey64 : $sKey32
	Local Static $sPSexe = RegRead($sKey, 'Path')
	Local $sPathTMP = StringFormat('%s\__%s%s%s%s%s%s%s.ps1', @TempDir, @YEAR, @MON, @MDAY, @HOUR, @MIN, @SEC, @MSEC)
	Local $fH = FileOpen($sPathTMP, 2+8+128)
	FileWrite($fH, $_sCmd)
	FileClose($fH)
	Local $sRun = StringFormat('%s -ExecutionPolicy UnRestricted -File %s', $sPSexe, $sPathTMP)
	Local $iPID = Run($sRun, @ScriptDir, @SW_HIDE, 0x2)
	If $_iOutput = 1 Then
		Local $sOut
		Do
			$sOut &= StdoutRead($iPID)
		Until @error
		StdioClose($iPID)
	Else
		While ProcessExists($iPID)
			Sleep(350)
		WEnd
	EndIf
	FileDelete($sPathTMP)
	Return ($_iOutput = 1 ? $sOut : 1)
EndFunc

Alles anzeigen

Edit: zum Vergleich existiert eine eigene AD-Funktion: Compare two users groups membership

littleman

Habe soweit jetzt die ausgelesenen Werte auf Edit1 in ein Array geschrieben und alles doppelten entfertn. Ausgabe mit _ArrayDisplay($arrayunique) sieht auch gut aus.
Jetzt kopiere ist die gleichen Werte einfach mal in Edit2 und möchte in der Schleife einzelne Wörter vergleichen, doch er löscht mir alle aus dem Edit2, obwohl ich nur eins geändert habe.

Bsp aus Edit1 ins Array -> Arra[Hund,Katze,Maus]
Vergleich jetzt mit dem Text in Edit2

Vorher

	Hund
	Katze
	Mausxxx

Nach dem ausführen

Hund	Leer
Katze	Lerr
Maus	Leer

Meine Umsetzung sollte so aussehen

	xxxx
	xxxx
	Mausxxx

Code

Case $aButton1
			MsgBox($MB_OK,"","test")


				$text1 = GUICtrlRead($aInput1)
				$text2 = GUICtrlRead($aInput2)
				$abfrage1 = (_PowerShell_Command('Get-ADPrincipalGroupMembership -Identity ' & $text1 & ' | select name | sort-object name'))


				_GUICtrlEdit_SetText($aEdit1, $abfrage1)


				$test=GUICtrlRead($aEdit1)
				$array = StringSplit($test,@CRLF,3)
				$arrayunique=_ArrayUnique($array)
				$arraycount = UBound($arrayunique)
				For $i = 0 To $arraycount -1


					$test2=GUICtrlRead($aEdit2)
					Local $sString = StringReplace($test2,$arrayunique[$i],"xxxx")


					_GUICtrlEdit_SetText($aEdit2, $sString)
				Next










			MsgBox($MB_OK,"zahl",$arraycount)
			MsgBox($MB_OK,"",$array[29])
			_ArrayDisplay($arrayunique)

Alles anzeigen

**autoiter**

Hey @littleman,
ich war jetzt nicht in der Lage, das ganz nachzuvollziehen. Jedenfalls, kann ich so ohne weiteres nicht die Ergebnisse nachstellen.
Es würde mich aber nicht wundern, wenn der Fehler mit deiner For-Schleife in Verbindung steht. Immer neu das Control auslesen, neue Werte setzen, neu auslesen. Vielleicht passiert da ein Fehler.

AutoIt

For $i = 0 To $arraycount -1
					$test2=GUICtrlRead($aEdit2)
					Local $sString = StringReplace($test2,$arrayunique[$i],"xxxx")
					_GUICtrlEdit_SetText($aEdit2, $sString)
				Next

Das ist nicht notwendig. Du musst nur einmal vor der Schleife das Control auslesen. In der Schleife bearbeitest du $test2 indem du die Ergebnisse nicht in einer anderen Variable speicherst, sondern in $test.

AutoIt

$test2= StringReplace($test2,$arrayunique[$i],"xxxx")

Nach der Schleife musst du dann auch nur einmal _GUICtrlEdit_SetText nutzen.

**autoiter**

Schau mal @littleman,

jetzt habe ich es doch mal probiert und festgestellt, dass ich das nicht so hinbekomme, wie gedacht. Bei StringReplace gibt es ja zwei Fälle. Meist möchte man die Zeile mit @LF ersetzen, jedoch nicht in der letzten Zeile. Da fehlt ein abschließendes @LF und es klappt nicht. Daher ist das (so wie ich es mache) etwas hässlich, weil in der Schleife beides je Edit probiert wird..
Ersetze mal deinen geposteten Code durch unten stehenden. Funktioniert das?

AutoIt

Case $aButton1
			MsgBox($MB_OK,"","test")


				$text1 = GUICtrlRead($aInput1)
				$text2 = GUICtrlRead($aInput2)
				$abfrage1 = (_PowerShell_Command('Get-ADPrincipalGroupMembership -Identity ' & $text1 & ' | select name | sort-object name'))


				_GUICtrlEdit_SetText($aEdit1, $abfrage1)


				$test=GUICtrlRead($aEdit1)
				$test2=GUICtrlRead($aEdit1)




$aSplit = StringSplit($test, @LF)


For $i = 1 To $aSplit[0]
	StringReplace($test2, $aSplit[$i], "")
	If @extended > 0 Then
		$test = StringReplace($test, $aSplit[$i] & @LF, "")
		$test = StringReplace($test, $aSplit[$i], "")
		$test2 = StringReplace($test2, $aSplit[$i] & @LF, "")
		$test2 = StringReplace($test2, $aSplit[$i], "")
	EndIf
Next


_GUICtrlEdit_SetText($aEdit1, $test)
_GUICtrlEdit_SetText($aEdit2, $test2)

Alles anzeigen

Lass uns aber noch über deine Variablenbezeichnungen sprechen. Das kannst du natürlich machen, wie du möchtest. Allerdings sollte besser sinnvoll sein, was hinter $ steht. Einmal natürlich ein aussagekräftiger Name. Davor im ersten Buchstaben eine Angabe, des Typs der Variable. Wenn du dich da an Konventionen hältst, hilft das dir später bei Durchsicht, deines eigenen Codes und auch anderen, die sich darin zurechtzufinden versuchen.
Schau mal hier (ich hoffe englisch ist kein Problem. Ansonsten findest du das bestimmt auch auf deutsch): https://www.autoitscript.com/wiki/Best_coding_practices

littleman

Das funktioniert leider nicht wie gewollt.

Ich habe jetzt beide Werte in ein Array geschrieben.
Wie kann ich beide Arrays vergleichen und das doppelte rausschmeissen?
Das wäre die einfachte Möglichkeit, oder?

**alpines**

Zitat von littleman

Wie kann ich beide Arrays vergleichen und das doppelte rausschmeissen?

Eine doppelte For-Schleife (oder While) in der die 1. das 1. Array durchgeht und die 2. das zweite Array.
Die nichtdoppelten Einträge kopierst du in ein neues Array oder löscht sie aus dem alten heraus. Wenn du sie löscht musst du aufpassen das die Schleife dann nicht crasht weil du out of bounds bist.

**BugFix**

Zitat von littleman

Wie kann ich beide Arrays vergleichen und das doppelte rausschmeissen?

Du kannst auch mal hiermit probieren.

**autoiter**

Nur weil ich meine, das muss doch zu schaffen sein.

Spoiler anzeigen

AutoIt

Case $aButton1
			MsgBox($MB_OK,"","test")
				$text1 = GUICtrlRead($aInput1)
				$text2 = GUICtrlRead($aInput2)
				$abfrage1 = (_PowerShell_Command('Get-ADPrincipalGroupMembership -Identity ' & $text1 & ' | select name | sort-object name'))
				_GUICtrlEdit_SetText($aEdit1, $abfrage1)
				$test=GUICtrlRead($aEdit1)
				$test2=GUICtrlRead($aEdit1)
$aSplit = StringSplit($test, @LF, 2) ; <-- geändert
$aSplit = _ArrayUnique($aSplit, 0, 0, 0, 0) ; <-- geändert
$test = _ArrayToString($aSplit, @LF) ; <-- geändert
For $i = 0 To UBound($aSplit) - 1 ; <-- geändert
	StringReplace($test2, $aSplit[$i], "")
	If @extended > 0 Then
		$test = StringReplace($test, $aSplit[$i] & @LF, "")
		$test = StringReplace($test, $aSplit[$i], "")
		$test2 = StringReplace($test2, $aSplit[$i] & @LF, "")
		$test2 = StringReplace($test2, $aSplit[$i], "")
	EndIf
Next
_GUICtrlEdit_SetText($aEdit1, $test)
_GUICtrlEdit_SetText($aEdit2, $test2)

Alles anzeigen

Ich würde aber jetzt auch Bugfix Skript nutzen. Das lässt sich sicher besser auf ähnliche Fälle anwenden.

littleman

Ich habe es mit der Funktion lösen können.
Die Funktione habe ich auch hier im Forum gefunden, finde den Beitrag aber nicht

Code

Func _ArrayCompare1($avArray1, $avArray2)
	Local $avArray3[1] = [0], $iMax, $i
	For $i = 1 To UBound($avArray1) - 1
		If Not _c($avArray2, $avArray1[$i]) Then
			$iMax = UBound($avArray3)
			ReDim $avArray3[$iMax + 1]
			$avArray3[$iMax] = $avArray1[$i]
		EndIf
	Next
	$avArray3[0] = UBound($avArray3) - 1
	Return $avArray3
EndFunc
Func _c($a, $v)
	Local $i
	For $i = 0 To UBound($a) - 1
		If $a[$i] = $v Then Return True
	Next
	Return False
EndFunc

Alles anzeigen