Beiträge von Dino

Hallo Leute,

ich habe zwei AU3-Dateien, mit den ich die Ordner die mit "Logotec" anfängen und unter C:\Programme liegen, am Ende ein Unterstich "_" in der Name hinzufüge bzw. entferne.

Zwei Fragen habe ich:
1. Was muss in der erste Datei geändert werden, damit nur dann ein Unterstrich hinzufügt wird, wenn dieser am Ende nicht existiert.
2. Was muss in der zweite Datei geändert werden, damit nur dann ein Unterstrich entfernt wird, wenn dieser am Ende existiert.

[autoit]

;~ ###############################################################################
;~ Bei allen Ordner unter C:\Programme\ die mit "Logotec" anfangen wird am Ende
;~ ein Unterstich "_" in der Name hinzufügt
;~ ###############################################################################

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

#include <File.au3>
$Dir = "C:\Programme"
$Files = _FileListToArray($Dir)
For $i = 1 To UBound($Files) - 1
If StringLeft($Files[$i], 7) = "Logotec" Then DirMove($Dir & "\" & $Files[$i], $Dir & "\" & $Files[$i] & "_")
Next

[/autoit][autoit]

;~ ###############################################################################
;~ Bei allen Ordner unter C:\Programme\ die mit "Logotec" anfangen wird am Ende
;~ der Unterstich "_" in der Name entfernt
;~ ###############################################################################
#include <File.au3>
#include <Array.au3>
$Path = 'C:\Programme\'
$FileList = _FileListToArray($Path, 'Logotec*', 2)
If Not IsArray($FileList) Then Exit MsgBox(0, '', 'Keine Verzeichnisse gefunden!')
For $i = 1 To $FileList[0]
$ret = DirMove($Path & $FileList[$i], $Path & StringTrimRight($FileList[$i], 1))
If $ret = 0 Then MsgBox(0, '', 'Konnte das Verzeichnis: ' & $Path & $FileList[$i] & ' nicht umbenennen!')
Next

[/autoit]

Besten Dank im Voraus !

Viele Grüße,
Dino

Hallo zusammen,

geht weiterhin nicht.... Das kuriose ist, wenn ich ein neues AU3-File mache und als Inhalt der Datei den Code (siehe unten) habe, dann wird das Fenster geschlossen. Befindet sich der Code in der gesamte (andere AU3) Datei, geht es nicht...

[autoit]

WinActivate("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")
WinWait("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")
Sleep(50)
ControlClick("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen","Fertigstellen")

[/autoit]

Hallo funkey,

geht auch nicht.

Hallo Leute,

ich habe ein Problem mit dem Fenster (siehe Screenshot). Ich bekomme dies nicht geschlossen.

Mein erster Versuch:
WinWait("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")
ControlClick("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen","Fertigstellen")

Mein zweiter Versuch:
WinWait("VENTURIS Setup", "InstallShield Wizard hat die Wartungsoperationen")
ControlClick("VENTURIS Setup", "","Button4")

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

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

Was mache ich falsch ?

Besten Dank im Voraus !

Viele Grüße,
Dino

Vielen Dank an @alle !

Grüße,
Dino

Hallo blubbstar, hallo Oscar,

funktioniert prima... Wenn ich jetzt die neue Version von Logotec installiert habe, möchte ich die Aktion umgekehrt machen sprich:
Bei alle Ordner unter C:\Programme\ die mit "Logotec" anfangen und am Ende ein Unterstich "_" haben, soll der Unterstich "_" entfernt werden.

.... unterstriche hinzufügen ....
.... neue Version installieren ....
.... unterstriche entfernen ....

Wie mache ich das ?

Grüße,
Dino

Hallo Leute,

wie kann ich unter C:\Programme\ alle Ordner die mit "Logotec" anfangen am Ende ein Unterstich "_" in der Name hinzufügen?

Beispiell vorher:
~~~~~~~~~~~~~
C:\Programme\Logotec_3.28
C:\Programme\Logotec_V8
C:\Programme\Logotec_23

Beispiel nachher:
~~~~~~~~~~~~~~
C:\Programme\Logotec_3.28_
C:\Programme\Logotec_V8_
C:\Programme\Logotec_23_

Besten Dank im Voraus !

Viele Grüße,
Dino

Funktioniert klasse

VIELEN, VIELEN DANK BugFix !

Hallo BugFix,

ich habe dein UDF gefunden, weiß aber nicht wie ich es einbinden soll. Könntest du mir bitte dabei helfen

Anbei aktueller Code:

[autoit]

#include <file.au3>
#Include <Array.au3>
#include "_Array2DEmptyDel.au3"

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

Local $folder, $filesinpath, $aFile
While True
$folder = FileSelectFolder("Ordner auswählen","c:\admin_V8\config\project_config\users\")
If @error Then
If MsgBox(262180,"Achtung!","Es wurde kein Ordner gewählt." & @CRLF & "Soll das Programm beendet werden?") = 6 Then Exit
Else
ExitLoop
EndIf
WEnd

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

$filesinpath = _FileListToArray($folder, "*.ucf", 1)
If @error Then Exit MsgBox(262192,"Achtung!","Der gewählte Ordner enthält keine Dateien!")

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

For $i = 1 To UBound($filesinpath)
If Not _FileReadToArray( $folder & "\" & $filesinpath[$i], $aFile) Then ContinueLoop
For $k = 1 To UBound($aFile) -1
If StringRegExp($aFile[$k], '(MS_)(MDL(APPS)?|DGNAPPS)') Then $aFile[$k] = ''
Next
_Array2DEmptyDel($aFile)
_FileWriteFromArray($folder&"\"&$filesinpath[$i],$aFile, 1)
Next

[/autoit]

Besten Dank !

Gruß,
Dino

Hallo BugFix, hallo funkey,

ich habe es wie folgt getestet:

1.) bekomme diesen Error:
C:\Dino\AutoIt3\FileWrite.au3(19,6) : ERROR: syntax error
Local
~~~~~^
C:\Dino\AutoIt3\FileWrite.au3 - 1 error(s), 0 warning(s)

2.) die Originaldatei kann beschrieben werden. clean_ muss nicht erstellt werden

3.) wie bekommt man es, dass auch die UPF-Dateien in allen Unterordner geändert werden?

Besten Dank für Hilfe !

Viele Grüße,
Dino

Hallo zusammen,

jetzt habe ich es so:

[autoit]

#include <file.au3>
#Include <Array.au3>
#include "_Array2DEmptyDel.au3"

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

$folder = FileSelectFolder("Ordner auswählen","c:\admin_V8\config\project_config\users\")

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

If $folder = "" Then Exit
$filesinpath = _FileListToArray($folder, "*.ucf",1)
If $filesinpath = 0 Then Exit
_ArrayDisplay($filesinpath)

Local $aNewFile[UBound($filesinpath)], $count = 0, $aFile

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

For $j = 1 To $filesinpath[0]
_FileReadToArray($folder&"\"&$filesinpath[$j],$aFile)
For $i = 1 To $aFile[0]
If StringRegExp($arFile[$i], '(MS_)(MDL(APPS)?|DGNAPPS)') Then $arFile[$i] = ''
$aNewFile[$count] = $aFile[$i]
$count += 1
Next
_Array2DEmptyDel($aNewFile)
_FileWriteFromArray($folder&"\"&$filesinpath[$j],$aNewFile)
$count = 0
Next

[/autoit]

Aber es wird nichts gelöscht

Hallo funkey,

jetzt geht es mit _Array2DEmptyDel.au3
Ich habe einen Ordner aus der ListBox ausgewählt. Sollte jetzt nicht der Inhalt der UCF-Datei dieses Ordners ersetzt werden?

Viele Grüße,
Dino

Hallo funkey,

vielen Dank für die Hilfe !

Ich bekomme beim Starten folgende Fehlermeldung:

C:\Programme\AutoIt3\Include\sasa.au3(3,10) : ERROR: can't open include file "_Array2DEmptyDel.au3"
#include "_Array2DEmptyDel.au3"
~~~~~~~~~^
C:\Programme\AutoIt3\Include\sasa.au3(21,31) : ERROR: _Array2DEmptyDel(): undefined function.
_Array2DEmptyDel($aNewFile)

Gruß,
Dino

Hallo Mega,

und wie sieht der ganze Code aus ?

Bitte helfen

Hallo BugFix,

könntest du mir bitte helfen, wie das ganze aussieht, da ich absoluter Anfänger bin ?

Besten Dank !

Dino

Hallo Leute,

wie kann ich in allen UCF-Dateien (können mit Notepad geöffnet werden) die unter c:\admin_V8\config\project_config\users\...\ in verschiedenen Unterordner liegen,
die Zeile bei den es am Angang (da der restliche Zeileninhalt unterschiedlich sein kann) dies MS_MDLAPPS, MS_MDL oder MS_DGNAPPS steht löschen und im Anschluß Datei abspeichern?

Beispiel:
MS_MDLAPPS > C:/Programme/MicroStationV8/Workspace/standards/mdlapps/intelnt/
MS_MDL > D:/prj/25808061/prcfg/mdl/
MS_DGNAPPS > sscloud
MS_MDL = C:/Programme/MicroStationV8/Program/MicroStation/FeatureModeling/features/
MS_DGNAPPS > $(SR_ADMIN)user_config/$(_USTN_USERNAME)/sscloud.ma

Besten Dank im Voraus !

Viele Grüße,
Dino

jetzt geht es

[autoit]

#include <File.au3>

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

$searchstring = "G:/"
$replacestring = "C:/"
$pfad = "c:\admin_V8\config\project_config\"

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

$array = _FileListToArray($pfad, "*.ini", 1)
For $i = 1 To Ubound($array)-1
$content = FileRead($pfad&$array[$i]) ; lesen
$content = StringReplace($content, $searchstring, $replacestring) ; ersetzen
$handle = FileOpen($pfad&$array[$i], 2) ; Datei zum überschreiben öffnen
FileWrite($handle,$content) ; neuen Inhalt schreiben
FileClose($handle) ; Datei schließen
Next

[/autoit]

Danke an @Alle

geht auch nicht

so wird nichts ersetzt:

[autoit]

#include <File.au3>

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

$searchstring = "G:/"
$replacestring = "C:/"
$pfad = "c:\admin_V8\config\project_config\"
$array = _FileListToArray($pfad, "*.ini*", 1) ;leider weiss ich jetzt nicht genau was filelisttoarray alles zurückgibt ich glaube nur den dateinamen
For $i = 1 To Ubound($array)-1 ;$i = 1 / 0 keine ahnung ob im index 0 schon was steht
$handle = FileOpen($pfad&$array[$i], 1)
$content = FileRead($handle)
StringReplace($content, $searchstring, $replacestring)
FileClose($handle)
Next

[/autoit]

ERROR: _FileListToArray(): undefined function.
$array = _FileListToArray($pfad, "*.ini*", 1)

[autoit]

$searchstring = "G:/"
$replacestring = "C:/"
$pfad = "c:\admin_V8\config\project_config\"
$array = _FileListToArray($pfad, "*.ini*", 1) ;leider weiss ich jetzt nicht genau was filelisttoarray alles zurückgibt ich glaube nur den dateinamen
For $i = 1 To Ubound($array)-1 ;$i = 1 / 0 keine ahnung ob im index 0 schon was steht
$handle = FileOpen($pfad&$array[$i], 1)
$content = FileRead($handle)
StringReplace($content, $searchstring, $replacestring)
FileClose($handle)
Next

[/autoit]