habe mal eine frage.
[autoit]For $i = 1 to 100
$var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\Autoit", $i)
if @error <> 0 Then ExitLoop
MsgBox(4096, "Wertname #" & $i & " unter dem AutoIt3 Schlüssel", $var)
next
Damit kriege ich alle zeichenfolge raus aber,
wie kann man damit einen bestimmte zeichenfolge abfragen und den wert und alle unterschlüssel?
Hey,
ich will alles was unter hklm\software\log\
einen bestimmte zeichen folge abfragen" zeichenfolgetest"
und mir anzeigenlassen was nicht wert01 ist.
hklm\software\log\test1\zeichenfolgetest = wert01
hklm\software\log\test2\zeichenfolgetest = wert0111
hklm\software\log\test3\zeichenfolgetest = wert01
hklm\software\log\test4\zeichenfolgetest = wert04
hklm\software\log\test5\zeichenfolgetest = wert01
hklm\software\log\test6\zeichenfolgetest = wert01
hklm\software\log\test7\zeichenfolgetest = wert01222
hklm\software\log\test8\zeichenfolgetest = wert02
hklm\software\log\test9\zeichenfolgetest = wert01
hklm\software\log\test10\zeichenfolgetest = wert01
hklm\software\log\test11\zeichenfolgetest = wert01
Eine idee?
Hey,
habe einen frage möchte gerne in allen unterschlüsseln eine bestimmte zeichenfolge einen wert abfragen wie mache ich das?
mhh...
ich habe gar keine Auto 
$Edit1 = GUICtrlCreateEdit("", 108, 48, 149, 280)
$hListBox = GUICtrlCreateList("", 370, 48, 250, 280)
Ich habe doch von anfang an keine Listview gehabt ??
Wie kann ich das am besten lösen ?
Hey,
[autoit]$name = "" ; Wie mache ich das?
$searchstring = "" ;Das kriege ich hin GUICtrlRead
$ergebnis ;hier werden treffer zwischen gespeichert
$asections=IniReadSectionNames($name)
for $i = 0 to UBound($asections)-1
if $asections[$i] = $searchstring then $ergebnis &= $asections[$i] & "|"
next
;$ergebnis enthält jetzt alle .ini Namen mit der gesuchten Sektion, abgetrennt von einem "|"
[/autoit]Und vor allem wie baue ich die GUI jetzt auf oder die Funktion
mit der suchen funktion.
Komme mir vor wie am ersten tag AUTOIT
Das Problem habe ich ja auch noch habe sehr viel mit Listviews gearbeitet ,
aber nicht mit listboxen bin froh das ich das jetzt hinbekommen habe...
Ich habe ja sogesehen zwei listboxen einmal dateiname.ini
ordnername\software.ini >Listboxeintrag> Ordnername.ini
Kannst du mir mal unter die arme greifen
Ich weiss nicht im ansatz wie ich das machen soll?
Kannst du mir etwas dabei helfen?
Hey,
Habe folgendes Problem:
Habe folgende Gui Funktioniert auch soweit.
#Include <GuiListBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <String.au3>
Opt("GuiOnEventMode",1)
;Opt("MustDeclareVars", 1)
Global $aArtikel, $aRead, $aRet, $colList, $DATEI_EDIT, $Edit_loeschen, $Edit1, $Form1, $hListBox, $i, $InsFol, $InsFolini
Global $insPostpone, $insrepair, $insshowdialog, $inshidden, $insuninstall, $j, $ListArtikel1, $ListArtikel2, $ListArtikel3
Global $read, $s11, $s12, $s13, $s14, $s15, $s16, $s17, $s18, $s19, $s20, $saveFile, $Speichern, $split, $sRead, $ValuesToSet
Global $folder, $array, $string, $sel, $stringAdd, $aItem[1][2] = [['']]
$Form1 = GUICreate("Form1", 633, 370, -1, -1)
GuiSetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Edit1 = GUICtrlCreateEdit("", 108, 48, 149, 280)
$hListBox = GUICtrlCreateList("", 370, 48, 250, 280)
$insuninstall = GUICtrlCreateButton("Un", 10, 128, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$insrepair = GUICtrlCreateButton("Re", 10, 159, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$insshowdialog = GUICtrlCreateButton("Sh", 10, 190, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$inshidden = GUICtrlCreateButton("Hi", 10, 221, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$insPostpone = GUICtrlCreateButton("Po", 10, 252, 91, 25)
GuiCtrlSetOnEvent(-1, "_insline")
$InsFol = GUICtrlCreateButton("Bundels", 370, 338, 91, 25)
GuiCtrlSetOnEvent(-1, "_bundle")
$InsFolini = GUICtrlCreateButton("Custom Bundels", 490, 338, 91, 25)
GuiCtrlSetOnEvent(-1, "_bundle")
GUICtrlCreateLabel("BUNDELS", 372, 24, 178, 20)
GUICtrlCreateLabel("software.INI", 110, 24, 67, 17)
$Speichern = GUICtrlCreateButton("Speichern", 140, 338, 75, 25)
GuiCtrlSetonevent(-1, "_save")
$Edit_loeschen = GUICtrlCreateButton("Edit löschen", 220, 338, 75, 25)
GuiCtrlSetonevent(-1, "_del")
$Inputcn = GUICtrlCreateInput("Suchen", 472, 8, 121, 23)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
sleep(100)
WEnd
Func _bundle()
Switch @GUI_CtrlId
Case $InsFol
_select_bundel()
Case $InsFolini
_select_bundel(1)
EndSwitch
EndFunc
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
If Not IsArray($array) Then Return $GUI_RUNDEFMSG ; <=== füge diese Zeile ein
Local $hWndFrom, $iCode, $hWndListBox = $hListBox
If Not IsHWnd($hWndListBox) Then $hWndListBox = GUICtrlGetHandle($hWndListBox)
$hWndFrom = $ilParam
$iCode = BitShift($iwParam, 16)
If $hWndFrom = $hWndListBox Then
If $iCode = $LBN_DBLCLK Then
$stringAdd = ""
$read = ''
$sel = _GUICtrlListBox_GetCurSel($hListBox)
If $sel <> -1 Then
Local $ind = _ArraySearch($aItem, _GUICtrlListBox_GetText($hListBox, $sel), 0, 0, 0, 0, 1, 1)
If @error Then Return
$read = FileRead($aItem[$ind][0])
$split = StringSplit($read, "")
For $i = 1 To $split[0]
If $split[$i] = "[" Then $string &= @CRLF
$string &= $split[$i]
Next
;GuICtrlSetData($Edit1, StringTrimLeft($string,1)&@CRLF)
GuICtrlSetData($Edit1, GUICtrlRead($Edit1) & @CRLF & StringTrimLeft($string,1)&@CRLF&@CRLF)
$string = ""
EndIf
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc
Func _insLine()
For $i = 27 To 3 Step -1
$string = StringReplace(GuiCtrlRead($Edit1), _multiLine($i) , @CRLF & @CRLF)
GuICtrlSetData($Edit1, $string)
Next
Switch @GUI_CtrlId
Case 124
$stringAdd = @crlf & "Un=1" & @CRLF & @CRLF
Case 6
$stringAdd = @crlf & "re=1" & @CRLF & @CRLF
Case 7
$stringAdd = @crlf & "Sh=0" & @CRLF & @CRLF
Case 8
$stringAdd = @crlf & "hi=1" & @CRLF & @CRLF
Case 9
$stringAdd = @crlf & "Al=1" & @crlf & "Po=3" & @CRLF & @CRLF
EndSwitch
$string = StringReplace(GuiCtrlRead($Edit1), @crlf & @CRLF ,$stringAdd)
GuICtrlSetData($Edit1, $string)
EndFunc
Func _multiLine($count)
Local $ret = ''
For $i = 1 To $count
$ret &= @CRLF
Next
Return $ret
EndFunc
Func _save()
$saveFile = FileSaveDialog("Wählen Sie einen Ordner aus:", @DesktopDir,"Files(*.*)")
If $saveFile <> "" Then
FileWrite($saveFile, GuiCtrlRead($Edit1))
EndIf
EndFunc
Func _del()
GuICtrlSetData($Edit1, "")
EndFunc
Func _Exit()
Exit
EndFunc
Func _select_bundel($bundle=0)
If Not IsHWnd($hListBox) Then $hListBox = GUICtrlGetHandle($hListBox)
_GUICtrlListBox_ResetContent($hListBox)
GuICtrlSetData($Edit1, "")
ReDim $aItem[1][2]
$aItem[0][0] = ''
If $bundle = 0 Then
$folder = 'bundels'
;$folder = FileSelectFolder("Wählen Sie einen Ordner aus:", 'C:\');@DesktopDir)
If $folder <> "" Then
$array = _FileListToArray($folder, "*.ini",1)
If @error Then Return ; <=== Falls keine Datei enthalten, aus Funktion aussteigen
For $i = 1 To Ubound($array)-1
If $aItem[UBound($aItem)-1][0] <> '' Then ReDim $aItem[UBound($aItem)+1][2]
$aItem[UBound($aItem)-1][0] = $folder & '\' & $array[$i]
$aItem[UBound($aItem)-1][1] = $array[$i]
_GUICtrlListBox_AddFile($hListBox, $folder & "/" & $array[$i])
Next
EndIf
Else
Local $path = 'c:\Customs' ; Pfad mit den Unterordnern
Local $log = 'Software.ini'
$array = _FileListToArray($path, '*', 2)
If @error Then Return
Local $ind, $aInd, $text
For $i = 1 To UBound($array) -1
If FileExists($path & '\' & $array[$i] & '\' & $log) Then
If $aItem[UBound($aItem)-1][0] <> '' Then ReDim $aItem[UBound($aItem)+1][2]
$aItem[UBound($aItem)-1][0] = $path & '\' & $array[$i] & '\' & $log
$aItem[UBound($aItem)-1][1] = $array[$i] & '.ini'
_GUICtrlListBox_AddString($hListBox, $array[$i] & '.ini')
EndIf
Next
EndIf
EndFunc
jetzt zu meinem Problem:
In der Listview werden über einen Button der Inhalt eines verzeichnisses angezeigt in eine Listbox "alle *.ini's"
über den anderen Button werden werden diverse unter order geprüft und dort enthaltene ini datei angezeigt.
Also so in etwa.
ordner1\software.ini > ListBox> ordner1.ini
ordner2\software.ini > ListBox> ordner2.ini
ordner3\software.ini > ListBox> ordner3.ini
ordner4\software.ini > ListBox> ordner4.ini
ordner5\software.ini > ListBox> ordner5.ini
Funktioniert auch.
Jetzt möchte ich in der Listbox suchen in welcher ini ein bestimmter [SektionsName] und die einblenden und den rest ausblenden wie mache ich das?
Und das ganze über eine Inputbox?
In der ini Können mehrere [SektionsName] enthalten sein. aber wenn es zutrift dann einblenden rest ausbelnden oder farblich makieren als alternative eine idee?
Bin am verzweifeln....
Danke Funktioniert
was mache ich hier falsch?
[autoit]if @error then MsgBox(0, 'Fehler', 'Im Verzeichnis "' & $sImagePath & '" wurden keine tib-Dateien gefunden!', 0, $hGui) AND If Not @error Then
[/autoit]Kriege immer ein Synstax Fehler??
Sorry Wegen *Push* aber bin am verzweifeln kann mir jemand helfen ?
Hey,
brauche mal eure Hilfe Will Einen SQL Server Abfragen weiss aber nicht mal im Ansatz wie ich das machen soll,
Ich weiss auch nicht welche daten ich dabei herauskommen habe kaum ahnung von SQl auf jedenfall ist dort ein SMS Server
Wo die daten von den Clients Liegen kann mir da jemand helfen??
Hier die daten ich glaube die Brauche ich für den verbindungsaufbau??
ConnectionString=Integrated Security=SSPI
Initial Catalog=SMS_E40
Data Source=s0dcs200
Kann mir da jemand Helfen oder hat das schonmal jemand gemacht ??
Hey,
mhh mit else würde ich es ja tun aber die funktion ist etwas Complex für meine verhältnisse hat jemand einen vorschlag für mich wie ich das Optimieren kann ?
[autoit]Func _befuelle_lv_liste()
;### Befülle Listview Liste aus Inhalten einer 26 - spaltigen csv Datei
;### Suchkriterium Hostname aus dem Listview $ListViewText [1] (noch zu überprüfen!!!!), gffs. musst Du den Hostnamen anders bestimmen
;### CSV Daten:
;### 7. Spalte Besitzer
;### 17. Spalte Hostname
;### 26. Spalte Last Logon
_GUICtrlListView_DeleteAllItems($Liste)
Local $arfile
Local $file = '\\server\share\report\CI.csv'
_FileReadToArray($file, $arfile)
;_ArrayDisplay($arfile)
Local $icount = _GUICtrlListView_GetItemCount($ListViewhost)
For $j = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemText($ListViewhost, $j)
For $i = 1 To UBound($arfile) - 1 ; 1. Element ist Beschreibung der csv Daten
$temp = StringSplit($arfile[$i], ";")
If $temp[17] = $ListViewText Then
$IP = _QueryDNS($ListViewText)
Ping($ListViewText, 100) ; Host anpingen
If Not @error Then $STATus = 'ON'
Ping($ListViewText, 100) ; Host anpingen
If @error Then $STATus = 'Offline'
If not (FileExists("\\server\shareI\log2\" & $ListViewText & ".log")) And not (FileExists("\\server\shareI\log-m068\" & $ListViewText & ".log")) Then
GUICtrlCreateListViewItem($temp[17] & "||" & $Text & "|" & $temp[7] & "|" & $IP & "|" & $STATus, $Liste)
Else
$FileToOpen = ""
if FileExists("\\server\shareI\log2\" & $ListViewText & ".log") then $FileToOpen = "\\server\shareI\log2\" & $ListViewText & ".log"
if ($FileToOpen = "") and FileExists("\\server\shareI\log-m068\" & $ListViewText & ".log") then $FileToOpen = "\\server\shareI\log-m068\" & $ListViewText & ".log"
if $FileToOpen <> "" then $file = FileOpen($FileToOpen, 0)
While 1
$Text = ""
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$Text = StringReplace($line, "USERNAME=", "")
If @extended > 0 Then ;GUICtrlCreateListViewItem($ListViewText[1]&'|'&$text, $Liste)
If $Text = "" Then
GUICtrlCreateListViewItem($temp[17] & "|" & "|" &$Text & "|" & $temp[7] & "|" & $IP & "|" & $STATus, $Liste)
EndIf
$result1 = _ADObjectExists($Text)
If $result1 = 1 Then
$result = _ADGetLastLoginDate($Text)
If $result1 = 0 Then
$result = ''
EndIf
$result = StringRegExpReplace($result, "(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})", "$4:$5:$6 $3.$2.$1")
GUICtrlCreateListViewItem($temp[17] & "|" & $Text & "|" & $result & '|' & $temp[7] & "|" & $IP & "|" & $STATus, $Liste)
EndIf
EndIf
WEnd
FileClose($file)
EndIf ;
EndIf
Next
Next
EndFunc ;==>_befuel
Was hälst du von der version die ich für dich gemacht habe die funktioniert?
Hey,
so weit ich weiss kann man bei :
GUICtrlSetOnEvent
[/autoit]
kein parameter übergeben konnte nichts finden aber ich bin ja auch nicht so fit
Habe mal einiges geändert versuch das mal so...
[autoit]#include<String.au3>
#include<WindowsConstants.au3>
#include<Misc.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include<string.au3>
#include<Constants.au3>
#include <GuiButton.au3>
#include<String.au3>
#Include <File.au3>
#include<Process.au3>
;Opt('MustDeclareVars', 1)
;Opt("GUIOnEventMode", 1)
Global $ExitID
Global $Folder1 = 'C:\Temp\gis-test'
Global $Folder2 = 'C:\test'
;Initialize variables
Local $GUIWidth = 300, $GUIHeight = 140
Local $Button_1
GUICreate("Update", $GUIWidth, $GUIHeight)
GUICtrlCreateLabel ("Es wird nun ein Update auf Ihrem Computer installiert. Eine eventuell vorhandene Installation wird überschrieben",20, 20, 260, 60)
$Button_1 = GUICtrlCreateButton ("Update starten" , 20, 90, 125, 20, 0)
;GUICtrlSetOnEvent($Button_1, '_CopyFolder', $Folder1, $Folder2)
$ExitID = GUICtrlCreateButton("cancel", 180, 90, 70, 20)
GUISetState(@SW_SHOW) ; display the GUI
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button_1
_CopyFolder($Folder1, $Folder2)
EndSwitch
WEnd
Func _CopyFolder($Folder1, $Folder2)
Local $ProcID
$ProcID = Run(@ComSpec & ' /c xcopy /e /h /y "' & $Folder1 & '" "' & $Folder2 & '"', "", @SW_HIDE)
ProgressOn("Progress Meter", "")
$origfilesize = DirGetSize($Folder1)
Do
$copyfilesize = DirGetSize($Folder2)
$MBcopy = dirGetSize($Folder2) / 1024 / 1024
$percent = $copyfilesize / $origfilesize * 100
$decimalplace = Round ($percent)
$decimalplaceMBcopy = Round ($MBcopy)
ProgressSet ($percent, $decimalplace & "% " & "(" & _
$decimalplaceMBcopy & ") Mb has been copied.")
Sleep(500)
Until NOT ProcessExists($ProcID)
ProgressOff ()
$copyfilesize = DirGetSize($Folder2)
$MBorig = dirGetSize($Folder1) / 1024 / 1024
$decimalplaceMBorig = Round ($MBorig)
If $origfilesize = $copyfilesize then
Msgbox(0,"Backup Complete", "All " & $decimalplaceMBcopy & " Mb of files and folders were copied successfully.")
Else
Msgbox(0,"Error", "The backup did not complete successfully. Only " & $decimalplaceMBcopy & " Mb of " & $decimalplaceMBorig & " Mb copied successfully.")
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]Func onexit()
[/autoit][autoit][/autoit][autoit]Exit
EndFunc
Was ist daran falsch wenn ich fragen darf?
[autoit]If $temp[17] <> $ListViewText Then
$i += 1
In der zeile 12 . damit ich es verstehe??
Dann habe ich es ja doch eventuell verstanden freu..........
???
Der wert den ich kriege ist $temp[17] das ist eine bestimmt spalte in der datei mit einem bestimmten wert = $ListViewText
Was hat das mit den Anzahl der einträgen zu tun oder verstehe ich das wieder falsch?
Ich bin leider jetzt zu hause kann es nicht testen.. werde es gleich morgen machen ...
aber eine frage hätte ich was macht die neue zeile 12 ich verstehe die funktion von ubound nicht so richtig
ja habe die hilfe gelesen, kann mir da jemand helfen ?
If UBound($temp) < 18 Then ContinueLoop
[/autoit]
