Beiträge von Dino

Hallo FireFlyer,

wo trage ich folgendes ein:

[autoit]

$pfad = "c:\admin_V8\config\project_config\"
$array = _FileListToArray($pfad, "*.ini*", 1

[/autoit]

Gruß,
Dino

Hallo,

meine ini-Datei sieht so aus:

[autoit]

#----------------------------------------------------------------------
#
# untitled.ini - Copy this file as a starting point for new projects.
#
#
_USTN_PROJECTDESCR = Untitled Project

[/autoit][autoit][/autoit][autoit]

#----------------------------------------------------------------------
# Set search paths.
#----------------------------------------------------------------------
SR_PRJ = g:/schulung/60008047/

[/autoit][autoit][/autoit][autoit]

CADTRON_USER_ENV = $(MS_DEF)
CADTRON_LST = $(MS_DEF)Listen/
CADTRON_LSTFT = $(MS_DEF)Listen/
CADTRON_HIDDEN3D = $(MS_DEF)Schnitte/
CADTRON_METHODE = $(MS_DEF)Methoden/
CADTRON_IDATCALC_DIR = D:/Programme/Spricalc/IDAT-CALC
#CADTRON_BUILDING = stockwerke_geb_1

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

MS_SEEDFILES > $(CADTRON)/env/dgn/seed/
MS_DESIGNSEED = $(CADTRON)/env/dgn/seed/3D_m_mm_1000_100.dgn
#MS_SEEDFILES = $(MS_DEF)einstellungen/seed/
MS_SEEDFILES > $(_USTN_WORKSPACEROOT)system/seed/
MS_SEEDFILES > $(_USTN_WORKSPACEROOT)standards/seed/
MS_SYMBRSRC > $(MS_DEF)einstellungen/font/*.rsc
MS_BACKUP = $(MS_DEF)Backup/

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

MS_RFDIR = $(MS_DEF)
MS_RFDIR > $(MS_DEF)Schnitte/model_hatch/
MS_RFDIR > $(MS_DEF)Schnitte/model_hidden/
MS_RFDIR > $(MS_DEF)architektur/
MS_RFDIR > $(MS_DEF)elektro/
MS_RFDIR > $(MS_DEF)heizung/
MS_RFDIR > $(MS_DEF)lueftung/
MS_RFDIR > $(MS_DEF)sanitaer/
MS_RFDIR > $(MS_DEF)planausgabe/
MS_RFDIR > $(MS_DEF)sprinkler/

[/autoit]

Ich dachte die "Section" ist das zu ersetzende Inhalt, oder?

Hallo,

icha habe es wie folgt ausprobiert und nichts wird ersetzt

[autoit]

#include <File.au3>
$pfad = "c:\admin_V8\config\project_config\"
$array = _FileListToArray($pfad, "*.ini*", 1)
$G = 'G:/'

[/autoit][autoit][/autoit][autoit]

For $i = 1 To UBound($array) - 1
IniWrite($pfad & "\" & $array[$i], $G, "SR_PRJ", "C:/")
Next

[/autoit]

Gruß,
Dino

Hallo zusammen,

da ich Anfänger bin, würde ich mich freuen, wenn ihr mir bitte zeigt, wie der gesamte Codeinhalt aussieht.

Besten Dank !

Viele Grüße,
Dino

Hallo Leute,

wie kann ich in allen ini-Dateien die unter c:\admin_V8\config\project_config\ liegen folgendes SR_PRJ = G:/ durch SR_PRJ = C:/ ersetzen.

Besten Dank im Voraus !

Viele Grüße,
Dino

Vielen Dank !

Dino

Hallo,

wenn ich den Ordner vorher lösche, kommt trotzdem das Fenster, da der Ordner nicht existiert

VG Dino

Hi Der_Doc,

wie sieht das ganze aus ?

Viele Grüße,
Dino

Hallo Leute,

bei der Installation eines Programms, kann es vorkommen (falls der InstallDir nicht existiert), dass das Fenster mit Meldung ("Setup", "Ordner ist nicht vorhanden. Soll er erstellt werden?") erscheint.
Wenn ich z.B. die Installation der neue Version durchführe, kommt dieses Fenster nicht, da der Ordner bereits existiert. Also falls der Fenster kommt, möchte ich die Frage mit JA bzw. Button1 bestätigen.

Was habe in kommentierten Abschnitt falsch gemacht?

[autoit]

.....
.....
WinWait("Laufwerk auswählen","Setup wird eKlimax in folgendem Ordner installieren.")
ControlClick("Laufwerk auswählen", "","Button3")
ControlSetText("Ordner auswählen","","Edit1", $InstallDir)

[/autoit][autoit][/autoit][autoit]

;~ Do
;~ Sleep(100)
;~ If WinExists("Setup", "Ordner ist nicht vorhanden. Soll er erstellt werden?") Then
;~ ControlClick("Setup", "","Button1")
;~ EndIf
;~ ExitLoop
;~ EndIf;~
;~ Until WinExists("Ordner auswählen", "")

[/autoit][autoit][/autoit][autoit]

ControlClick("Ordner auswählen", "","Button1")
ControlClick("Laufwerk auswählen", "","Button1")
.....
.....

[/autoit]

Besten Dank im Voraus !

Viele Grüße,
Dino

... es funktioniert prima....

Besten Dank !!!

Viele Grüße,
Dino

wenn ich den Code alleine ausführe, funktioniert prima... Danke !
Wenn ich diesen Code am Ende der Programminstallation packe bzw. include, wird der Rechtsklick ausgeführt, aber der Linksklick landet mindestens 10 cm weit von "Klima Administration" Fenster.

Woran liegt das?

Gruß,
Dino

Hallo Spider,

anbei ein Screenshot mit ermittelten Positionen:
[Blockierte Grafik: http://imgbox.de/users/public/images/v10183z90.jpg]

Könntest du mir bitte schreiben, wie der Code jetzt aussehen muss ?

Besten Dank !

Viele Grüße,
Dino

Hallo Spider,

es läüft auch nicht

VG,
Dino

Hallo Spider,

geht auch nicht....

Anbei der Code, den ich ausprobiert habe:

[autoit]

Run("rundll32.exe "& "shell32.dll,Control_RunDLL "&@SystemDir&"\KlimaControl.cpl,Klima Administration")

[/autoit][autoit][/autoit][autoit]

WinWait("Klima Administration","")
Do
ControlCommand("Klima Administration", '', 'SysTabControl321', 'TabRight', '')
Until StringInStr(WinGetText("Klima Administration"), '') <>5

[/autoit][autoit][/autoit][autoit]

;~ WinActivate("Klima Administration","")

[/autoit][autoit][/autoit][autoit]

;~ ControlClick("Klima Administration","","SysTabControl321","right")
Send("{APPSKEY}")
;~ Send("{Down}")
;~ Send("{Down}")
;~ Send("{Enter}")

[/autoit]

VG Dino

Das kontextmenü öffnet sich nicht.
Mit Tastatur kann man kein 'n' senden.
WinActivate hat auch nicht geholfen.

Hallo funkey,

ich habe es probiert, leider bekomme ich den Kontextmenü "Neu anlegen.." nicht ausgewählt.

[autoit]

ControlClick("Klima Administration","","SysTabControl321","right")
Send("{Down}")
Send("{Down}")
Send("{Enter}")

[/autoit]

Gruß,
Dino

Hallo Leute,

wenn ich in SysTabControl321 (siehe Screenshot) mit rechten Mausklick klicke, möchte ich "Neu anlegen.." auswählen.

Wie mache ich das?

[Blockierte Grafik: http://imgbox.de/users/public/images/p10120h90.jpg]

Besten Dank im Voraus !

Viele Grüße,
Dino

Hallo Spider,

vielen Dank !

Gruß,
Dino

Hallo Leute,

Wie kann ich in ODBC-Systemdatenquellen "Klima" aus der SysListView321 auswählen?
Ich habe es mit ControlListView versucht, leider ohne Erfolg

[autoit]

Opt("WinTitleMatchMode", 4)

[/autoit][autoit][/autoit][autoit]

Run("rundll32.exe "& "shell32.dll,Control_RunDLL "&@SystemDir&"\ODBCCP32.CPL,ODBC-Datenquellen-Administrator")

[/autoit][autoit][/autoit][autoit]

WinWait("ODBC-Datenquellen-Administrator","Benutzer&datenquellen:")
Do
ControlCommand("ODBC-Datenquellen-Administrator", '', 'SysTabControl321', 'TabRight', '')
Until StringInStr(WinGetText("ODBC-Datenquellen-Administrator"), '&Systemdatenquellen:') <>5

[/autoit][autoit][/autoit][autoit]

ControlListView("ODBC-Datenquellen-Administrator","&Systemdatenquellen:","SysListView321","FindItem","Klima")
ControlSetText("ODBC-Datenquellen-Administrator","&Systemdatenquellen:","SysListView321","Select","Klima")

[/autoit]

Vielen Dank im Voraus !

Viele Grüße,
Dino