 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland
|
 Verfasst am: Mi Okt 18, 2006 10:23 am Titel: listbox in gui anzeigen |
 |
|
Hallo zusammen,
ich habe mir ein kleines tool zum erstellen von lst-dateien geschrieben.
| Code: | ;
; AutoHotkey Version: 1.0
; Language: Deutsch
; Platform: Win9x/NT
; Author: fredchf
;
; Script Function:
; Backup-Datei(lst) erstellen
;
Gui, Add, Button, gdathinz x6 y8 w110 h30 , Dateien hinzufügen
Gui, Add, Button, gbtnok x136 y8 w100 h30 , OK
Gui, Add, Button, gbtnabb x256 y8 w100 h30 , Abbruch
Gui, Add, Picture, icon22 , C:\WINDOWS\system32\shell32.dll
Gui, Add, Button, x486 y250 w-310 h-220 , Button
Gui, Add, Button, gordhin x6 y50 w110 h30 , Ordner hinzufügen
Gui, Show, x131 y91 h91 w370, Backup.lst Erstellen
Return
Return
dathinz: ;Button Dateien Hinzufügen
FILESELECTFILE, File, M, %A_MyDocuments%, Dateien wählen, Alle Dateien (*.*) ;Dateien wählen
If File =
{
Exit
}
msgbox, 33, Gewählte Datei(en), %File%
IFMSGBOX OK
{
loop, parse, File, `n ;zerteilt den string am zeilenumbruch
{
If A_Index = 1
pat1 = %A_LoopField% ;inhalt der ersten schleife in pat2 speichern
If A_Index > 1
FILEAPPEND, %pat1%\%A_LoopField%`n, Back.tmp ;in temporäre datei schreiben
CONTINUE
}
}
Return
btnok: ;OK-Button
IFEXIST, back.tmp
{
FILEREAD, ordner, back.tmp ;temporäre datei auslesen
FILEAPPEND, %ordner%, Backup2.lst ;der Backup-Datei hinzufügen
FILEDELETE, Back.tmp ;temporäre datei löschen
ExitApp
}
ExitApp
ordhin: ;Taste Ordner hinzufügen
FileSelectFolder, Folder, , 1, Ordner wählen ;Ordner wählen
If Folder =
{
Exit
}
msgbox, 33, Gewählter Ordner, %Folder%
IFMSGBOX OK
{
FILEAPPEND, %Folder%`n, Back.tmp
}
Return
btnabb:
FILEDELETE, Back.tmp
ExitApp
GuiClose:
FILEDELETE, Back.tmp
ExitApp
|
Ich möchte nun ganz gerne,das die aktuelle liste als text in der gui sichtbar ist.
leider bleibt meine listbox leer!
| Code: | SetTimer, reload ,1000
Gui, Add, Button, x6 y8 w110 h30 gdathinz, Dateien hinzufügen
Gui, Add, Button, x136 y8 w100 h30 gbtnok, OK
Gui, Add, Button, x256 y8 w100 h30 gbtnabb, Abbruch
Gui, Add, Picture, x176 y50 w90 h30 icon22, C:\WINDOWS\system32\shell32.dll
Gui, Add, Button, x486 y250 w-310 h-220 , Button
Gui, Add, Button, x6 y50 w110 h30 gordhin, Ordner hinzufügen
Gui, Add, ListView, x636 y80 w-260 h-30 , ListView
Gui, Add, ListBox, x16 y100 w330 h190 , %backlst%
Gui, Show, x131 y91 h322 w372, New GUI Window
Return
reload:
FileRead, backlst, backup1.lst
return
GuiClose:
ExitApp |
|
|
| Nach oben |
|
 |
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mi Okt 18, 2006 11:41 am Titel: |
|
|
Beispiel
| Code: | SetTimer, reload ,1000
Gui, Add, Picture, x176 y50 w90 h30 icon22, C:\WINDOWS\system32\shell32.dll
Gui, Add, ListBox, x16 y100 w330 h190 vdata22,
Gui, Show, x131 y91 h322 w372, New GUI Window
Return
reload:
GuiControl, ,data22, |
FileRead,AA,backup1.lst
GuiControl, ,DATA22,%AA%
return
GuiClose:
ExitApp
|
|
|
| Nach oben |
|
|
BoBo
Gast
|
| Verfasst am: Mi Okt 18, 2006 12:05 pm Titel: |
|
|
@ fredchf
Hallo fred,
deine webpage lässt sich nicht aufrufen ohne das der Standard Besucher mit Admin- Login Dialogboxen malträtiert wird. JFYI. 
| Code: | | http://www.christian-foelsch.de/index.html |
|
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland
|
| Verfasst am: Mi Okt 18, 2006 12:50 pm Titel: |
|
|
| BoBo hat Folgendes geschrieben: | @ fredchf
Hallo fred,
deine webpage lässt sich nicht aufrufen ohne das der Standard Besucher mit Admin- Login Dialogboxen malträtiert wird. JFYI.
| Code: | | http://www.christian-foelsch.de/index.html |
|
hallo bobo,
tut mir leid, dort ist nur ein privates photoalbum das ich nicht öffentlich machen will. 
nur ein ordner freigegeben!!
hallo garry,
ich habe deinen code bei mir integriert,aber leider ist der angezeigte text nur vdata22.habe ich was übersehen?
auch %vdata22% bringt nichts
| Code: | ;
; AutoHotkey Version: 1.0
; Language: Deutsch
; Platform: Win9x/NT
; Author: fredchf
;
; Script Function:
; Backup-Datei(lst) erstellen
;
SetTimer, reload ,1000, Priority
Gui, Add, Button, x6 y8 w110 h30 gdathinz, Dateien hinzufügen
Gui, Add, Button, x136 y8 w100 h30 gbtnok, OK
Gui, Add, Button, x256 y8 w100 h30 gbtnabb, Abbruch
Gui, Add, Picture, x176 y50 w90 h30 icon22, C:\WINDOWS\system32\shell32.dll
Gui, Add, Button, x486 y250 w-310 h-220 , Button
Gui, Add, Button, x6 y50 w110 h30 gordhin, Ordner hinzufügen
Gui, Add, ListView, x636 y80 w-260 h-30 , ListView
Gui, Add, ListBox, x16 y100 w330 h190 , vdata22
Gui, Show, x131 y91 h322 w372, New GUI Window
Return
reload:
GuiControl, ,data22, |
FileRead, AA, backup1.lst
GuiControl, ,DATA22,%AA%
return
dathinz: ;Button Dateien Hinzufügen
FILESELECTFILE, File, M, %A_MyDocuments%, Dateien wählen, Alle Dateien (*.*) ;Dateien wählen
If File =
{
Exit
}
msgbox, 33, Gewählte Datei(en), %File%
IFMSGBOX OK
{
loop, parse, File, `n ;zerteilt den string am zeilenumbruch
{
If A_Index = 1
pat1 = %A_LoopField% ;inhalt der ersten schleife in pat2 speichern
If A_Index > 1
FILEAPPEND, %pat1%\%A_LoopField%`n, Back.tmp ;in temporäre datei schreiben
CONTINUE
}
}
Return
btnok: ;OK-Button
IFEXIST, back.tmp
{
FILEREAD, ordner, back.tmp ;temporäre datei auslesen
FILEAPPEND, %ordner%, Backup2.lst ;der Backup-Datei hinzufügen
FILEDELETE, Back.tmp ;temporäre datei löschen
ExitApp
}
ExitApp
ordhin: ;Taste Ordner hinzufügen
FileSelectFolder, Folder, , 1, Ordner wählen ;Ordner wählen
If Folder =
{
Exit
}
msgbox, 33, Gewählter Ordner, %Folder%
IFMSGBOX OK
{
FILEAPPEND, %Folder%`n, Back.tmp
}
Return
btnabb:
FILEDELETE, Back.tmp
ExitApp
GuiClose:
FILEDELETE, Back.tmp
ExitApp
|
|
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mi Okt 18, 2006 7:06 pm Titel: |
|
|
Salu fredchf,
beachte, Komma ist nach der Variable (danach leer)
kannst den vorherigen script auch testen
Fehler ist noch, das alles auf einer Linie angezeigt wird obwohl CR/LF
| Code: | Gui, Add, ListBox, x16 y100 w330 h190 vdata22,
|
|
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland
|
| Verfasst am: Mi Okt 18, 2006 8:01 pm Titel: |
|
|
hallo garry,
ich konnte zwar keinen unterschied sehen,aber nach kopieren deiner zeile gings.  allerdings ist nur eine zeile zu sehen,muß ich die datei noch parsen,oder so? 
datei sieht etwa so aus:
C:\Dokumente und Einstellungen\Administrator\Anwendungsdaten\Mozilla\Firefox\Profiles
C:\Dokumente und Einstellungen\Administrator\Favoriten
C:\Programme\StarMoney 5.0 S-Edition\document
Mit Freundlichen Grüßen |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 437
Wohnort: switzerland
|
| Verfasst am: Mi Okt 18, 2006 8:44 pm Titel: |
|
|
Hello Christian, anbei Beispiel ( getestet )
| Code: | F1=backup1.lst
SetTimer, reload ,1000
Gui, Add, Picture, x176 y50 w90 h30 icon22, C:\WINDOWS\system32\shell32.dll
Gui, Add, ListBox, x16 y100 w330 h190 vdata22,
Gui, Show, x131 y91 h322 w372, New GUI Window
Return
reload:
I:=0
GuiControl, ,data22, |
Loop
{
I += 1
FileReadLine,AA, %F1%, %i%
if ErrorLevel <> 0
break
GuiControl, ,DATA22,%AA%
}
return
GuiClose:
ExitApp
|
|
|
| Nach oben |
|
|
fredchf
Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland
|
| Verfasst am: Mi Okt 18, 2006 9:18 pm Titel: |
|
|
hallo garry,
danke für die schnellen antworten,funktioniert jetzt prima.
darauf wäre ich nur leider nie gekommen.
mfg |
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
