_StringBetween, Zeilen durchnummerieren

mitac100

Hallo,

ich stehe im Moment auf dem schlauch.

Mein Skript mach nur zum Teil was es soll.

Die Zeilen werden nach dem auslesen aus dem Array so dargestellt.

Ist Stand:

1=D:\Documents\KeePass\Test.kdbx

1=F:\Documents\KeePass\Test.kdbx

Was muss ich tun um die Zahl um eins zu erhöhen?

Soll:

1=D:\Documents\KeePass\Test.kdbx

2=F:\Documents\KeePass\Test.kdbx

KeePass

#include <Array.au3>

#include<File.au3>

#include <String.au3>

Global $Ini = (@UserProfileDir & "\myBackupRestore\myBackup.ini")

_KeePass()

Func _KeePass()

Global $sFilepath = $Ini

;~ Local Const $sFilepath = @UserProfileDir & "\mybackuprestore\mybackup.ini"

Local $hFileOpen = FileOpen($sFilepath, $FO_READ)

If $hFileOpen = -1 Then

;~ MsgBox($MB_SYSTEMMODAL, "", "Fehler beim lesen des Files.")

Return False

EndIf

Local $sFileRead = FileRead($hFileOpen)

FileClose($hFileOpen)

;

Local $BetweenArray = _StringBetween($sFileRead, "[KeePass]", "[Lizenzvereinbarung]")

; Inhalt zwischen [KeePass] und [Lizenzvereinbarung ersetzen.

Local $sNewString = StringReplace($sFileRead, $BetweenArray[0], @CRLF & "")

FileDelete($Ini)

Local $WriteIni = FileWrite($Ini, $sNewString)

FileClose($WriteIni)

Local Const $sFilepath = @AppDataDir & "\KeePass\KeePass.config.xml"

if FileExists($sFilepath) Then

IniWrite($Ini, "Quellen", "39", @AppDataDir & '\KeePass')

Else

IniWrite($Ini, "Quellen", "39", "")

EndIf

Local $hFileOpen = FileOpen($sFilepath, $FO_READ)

If $hFileOpen = -1 Then

;~ MsgBox($MB_SYSTEMMODAL, "", "Fehler beim lesen des Files.")

Return False

EndIf

Local $sFileRead = FileRead($hFileOpen)

FileClose($hFileOpen)

Local $BetweenArray = _StringBetween($sFileRead, "<Path>", "</Path>", $STR_ENDISSTART)

For $index = 0 To _ArrayMaxIndex($BetweenArray)

Local $kdbx = $BetweenArray[$index]

;~ _ArraySort($BetweenArray)

;~ _ArrayDisplay($BetweenArray)

$aArrayUnique = _ArrayUnique($BetweenArray) ; Use default parameters to create a unique array of the first column.

;~ _ArrayDisplay($aArrayUnique, "$aArray first column") ; Display the unique array.

;~ MsgBox($MB_SYSTEMMODAL, "$aArrayUnique ", _ArrayToString($aArrayUnique, @CRLF))

Local $sFill = ""

For $i = 0 To $aArrayUnique

$i = $i + 1

;~ For $j = 0 To ubound($BetweenArray[$index])

;~ msgbox(0,"$I " ,$i & "=" & $kdbx)

;~ $j = $j + 1

$sFill &= $i & "=" & $kdbx & @CRLF

;~ $sFill &= $i + 1 & "=" & $kdbx & @CRLF

ConsoleWrite($sFill)

KeePass.config.xml

Spoiler anzeigen

<?xml version="1.0" encoding="utf-8"?>

<Meta>

<PreferUserConfiguration>false</PreferUserConfiguration>

</Meta>

<Path>D:\Documents\KeePass\Test.kdbx</Path>

<Path>F:\Documents\KeePass\Test.kdbx</Path>

<CredSaveMode>NoSave</CredSaveMode>

</LastUsedFile>

<Items>

<Path>D:\Documents\KeePass\Test.kdbx</Path>

<CredSaveMode>NoSave</CredSaveMode>

</ConnectionInfo>

</Items>

</MostRecentlyUsed>

<Item>Database@D:\Documents\KeePass</Item>

<Item>Import@D:\Documents</Item>

</WorkingDirectories>

<Start>

</Start>

</TriggerSystem>

</Application>

<Layout>Default</Layout>

<Type>Title</Type>

</Column>

<Type>UserName</Type>

</Column>

<Type>Password</Type>

</Column>

</Column>

<Type>Notes</Type>

</Column>

</EntryListColumnCollection>

<Order>Ascending</Order>

</ListSorting>

</MainWindow>

<UI>

<Family>Microsoft Sans Serif</Family>

<GraphicsUnit>Point</GraphicsUnit>

<Style>Regular</Style>

<OverrideUIDefault>false</OverrideUIDefault>

</StandardFont>

<Family>Courier New</Family>

<GraphicsUnit>Point</GraphicsUnit>

<Style>Regular</Style>

<OverrideUIDefault>false</OverrideUIDefault>

</PasswordFont>

<BannerStyle>WinVistaBlack</BannerStyle>

<Family>Microsoft Sans Serif</Family>

<GraphicsUnit>Point</GraphicsUnit>

<Style>Regular</Style>

<OverrideUIDefault>false</OverrideUIDefault>

</DataEditorFont>

</UI>

</WorkspaceLocking>

</MasterPassword>

</Security>

<GeneratorType>CharSet</GeneratorType>

</AutoGeneratedPasswordsProfile>

<GeneratorType>CharSet</GeneratorType>

</LastUsedProfile>

</PasswordGenerator>

<ComparisonMode>InvariantCultureIgnoreCase</ComparisonMode>

</SearchParameters>

</Defaults>

</UrlSchemeOverrides>

<ProxyType>System</ProxyType>

</Integration>

</Configuration>

Kizum

Hab es jetzt nur kurz überflogen aber deine schleife sollte so aussehen.

Code

For $i = 0 To ubound($aArrayUnique) -1 Step +1

Und ConsoleWrite($sFill) gehört in die Schleife rein.

Code

ConsoleWrite($sFill)

    Next
Next

mitac100

Kizum, funktioniert nicht, auch weil ubound , die werte aus _ArrayUnique multipliziert.

Sieht dann so aus:

1=D:\Documents\KeePass\Test.kdbx

3=D:\Documents\KeePass\Test.kdbx

1=F:\Documents\KeePass\Test.kdbx

3=F:\Documents\KeePass\Test.kdbx

Es ist egal ob ConsoleWrite sich innerhalb oder außerhalb der schleife befindet, die werte sind die gleichen.

**autoiter**

mitac100

Der erste Hinweis von Kizum war aber auf jeden Fall richtig - auch wenn man Step weglassen kann.

Du willst einmal die Pfade aus der config auslesen, mit _ArrayUnique erstellst du dann ein Array, das alle Pfade nur einmal enthält und willst mit diesem Array weiterarbeiten. Habe ich das richtig verstanden?

Dann solltest du _ArrayUnique vor der Schleife ausführen und mit diesem Array arbeiten, statt mit $BetweenArray.

**Bitnugger**

Ich blicke da nicht so ganz durch... du hast zwar die Datei KeePass.config.xml in den Spoiler gelegt, aber die Datei myBackup.ini fehlt und insgesamt ist dein Script eine einzige Katastrophe.

Erkläre doch einfach mal mit Worten, was genau du machen willst... dann helfe ich dir auch gerne dabei.

**autoBert**

Falls ich dein Problem (alle Dateipfade aus XML auslesen) richtig verstanden habe. würde ich so abändern:

C

#include <Array.au3>
#include <File.au3>
#include <String.au3>

Global $Ini = @ScriptDir & "\myBackup.ini"    ;Pfad anpassen

_KeePass($Ini)

Func _KeePass($sFilepath = @UserProfileDir & "\mybackuprestore\mybackup.ini")
    Local Const $sXMLpath = @ScriptDir & "\KeePass.config.xml" ;Pfad anpassen
    Local $sFileRead, $sNewString
    Local $hFileOpen = FileOpen($sFilepath, $FO_READ)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Fehler beim lesen des Files.")

    Else
        $sFileRead = FileRead($hFileOpen)

        FileClose($hFileOpen)
    EndIf
    Local $BetweenArray = _StringBetween($sFileRead, "[KeePass]", "[Lizenzvereinbarung]")
    If Not @error Then
        ; Inhalt zwischen [KeePass] und [Lizenzvereinbarung ersetzen.

        $sNewString = StringReplace($sFileRead, $BetweenArray[0], @CRLF & "")
    EndIf
    FileDelete($Ini)

    Local $WriteIni = FileWrite($Ini, $sNewString)    ;in eine MS conforme INI-Datei sollte man so nich schreiben

    If FileExists($sXMLpath) Then
        ;        IniWrite($Ini, "Quellen", "39", @AppDataDir & '\KeePass')
        IniWrite($Ini, "Quellen", "39", @ScriptDir & '\KeePass')
    Else
        IniWrite($Ini, "Quellen", "39", "")
    EndIf

    Local $hFileOpen = FileOpen($sXMLpath, $FO_READ)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Fehler beim lesen des Files.")
        Return False
    EndIf
    Local $sFileRead = FileRead($hFileOpen)
    FileClose($hFileOpen)
    Local $BetweenArray = _StringBetween($sFileRead, "<Path>", "</Path>")    ;optionaler Parametr nicht nötig da Start und End unterschiedlich
    $aArrayUnique = _ArrayUnique($BetweenArray) ; Use default parameters to create a unique array of the first column.
    _ArraySort($aArrayUnique)        ;eigentlch unnötig
    ;_ArrayDisplay($aArrayUnique, "$aArray first column") ; Display the unique array.
    For $i = 1 To $aArrayUnique[0]
        MsgBox(64, 'Zeile ' & $i, $aArrayUnique[$i])
    Next
EndFunc   ;==>_KeePass

Alles anzeigen

die Dateipfade mußt du nochmal prüfen und evtl. anpassen, denn ich verteile Daten von Tetsjripten ungern auf verschiedene Verzeichnisse.

mitac100

@Bitnugger, habe das Skript zum besseren Verständnis gekürzt bzw. leicht angepasst. Bitrag von Alpines. Array - _ArrayInsert - Bitnugger

Es geht einzig darum vor dem Pfad einen Key für die weitere Bearbeitung in der Ini zu setzen.

autoBert, das funktioniert leider nicht. Es geht um die Keys.

Spoiler anzeigen

#include <Array.au3>

#include<File.au3>

#include <String.au3>

$sFileName = "KeePass.config.txt"

;~ $sFileName = "KeePass.config.txt"

$hFilehandle = _Filecreate(@ScriptDir & "\" & $sFileName)

$sFilePath = @ScriptDir & "\" & $sFileName

$hFileOpen = FileOpen($sFilePath, $FO_APPEND)

If $hFileOpen = -1 Then

Return False

EndIf

FileWrite($hFilehandle, "" & @CRLF)

FileWrite($hFilehandle, "<Path>D:\Documents\KeePass\Test.kdbx</Path>" & @CRLF)

FileWrite($hFilehandle, "<Path>F:\Documents\KeePass\Test.kdbx</Path>" & @CRLF)

FileClose($hFilehandle)

$hFileOpen = FileOpen($sFilePath)

$sFileRead = FileRead($hFileOpen)

FileClose($hFileOpen)

Local $BetweenArray = _StringBetween($sFileRead, "<Path>", "</Path>", $STR_ENDISSTART)

Local $aFile = $BetweenArray

Local $i = 0

While $i < UBound($aFile)

If StringLeft ( ($aFile[$i]) , 1 ) = '' Then

;~ _ArrayInsert ( $aFile, "1=" & $i + 1, "Test " & StringRight ( $aFile[$i] , StringLen ( $aFile[$i] ) - 1 ) )

$i += 1

EndIf

$i += 1

WEnd

_ArrayDisplay ( $aFile , "kdbx" )

$aArrayUnique = _ArrayUnique($aFile) ;

$Kdbx= _ArrayToString($aArrayUnique, @CRLF)

MsgBox($MB_SYSTEMMODAL, "$aArrayUnique ", "Ist: " & @CRLF & $Kdbx & @CRLF & @CRLF & "Ergebnis soll sein: " & @CRLF & _

"1=D:\Documents\KeePass\Test.kdbx" & @CRLF & "2=F:\Documents\KeePass\Test.kdbx" & @CRLF & @CRLF & _

"Wie muss ich in den Code schreiben damit die Keys erzeugt werden?")

**autoiter**

Hallo mitac100

das ist fast Arbeitsverweigerung, was du machst, wenn es dir wirklich nur darum geht eine Nummer vor jeden String einzufügen.

Füge in dein Skript aus deinem letzten Beitrag unter der Zeile $aArrayUnique = _ArrayUnique($aFile) mal folgendes ein:

AutoIt

For $i = 1 To $aArrayUnique[0]
    $aArrayUnique[$i] = $i & "=" & $aArrayUnique[$i]
Next

mitac100

Hallo autoiter.

Danke, das ist genau das was ich gesucht habe.

Was hat das mit Arbeitsverweigerung zu tun?

**Bitnugger**

Zitat von autoiter

wenn es dir wirklich nur darum geht eine Nummer vor jeden String einzufügen.

Hehe... und ich habe ihn so verstanden, dass er nur bei den Zeilen mit den Pfaden eine Nummer einfügen will und nicht bei allen Zeilen.

Egal, hier noch ein kleines Script mit dem genau dies geht - nur bei den Zeilen mit den Pfaden eine Nummer einfügen.

AutoIt

;-- TIME_STAMP   2018-10-14 23:50:07   v 0.1

#include <File.au3>

Local $sFileName = "KeePass.config.txt"

;~ If Not FileExists($sFileName) Then
    FileDelete($sFileName)
    FileWrite($sFileName, _
            "<Path>D:\Documents\KeePass\Test.kdbx</Path>" & @CRLF & _
            "<Test>Test</Test>" & @CRLF & _
            "<Path>E:\Documents\KeePass\Test.kdbx</Path>" & @CRLF & _
            "<Path>F:\Documents\KeePass\Test.kdbx</Path>" & @CRLF & _
            "<Ende>Ende</Ende>" & @CRLF)
;~ EndIf

Local $iIndex, $iStart = 0, $iEnd = 0, $iCase = 0, $iCompare = 3, $iReplaceCount = 0, $aFileRead = FileReadToArray($sFileName)

While 1
    $iIndex = _ArraySearch($aFileRead, '(?i)<Path>([a-z].+)</Path>', $iStart, $iEnd, $iCase, $iCompare)
    If @error Then ExitLoop
    $iReplaceCount += 1
    $iStart = $iIndex + 1
    $aFileRead[$iIndex] = '<Path>' & $iReplaceCount & '=' & StringMid($aFileRead[$iIndex], 7)
WEnd

_ArrayDisplay($aFileRead, '$aFileRead')
Local $sFileRead = _ArrayToString($aFileRead, @CRLF)
MsgBox(64, @ScriptName, $sFileRead & @CRLF & @CRLF & 'ReplaceCount = ' & $iReplaceCount)

;~ Local $hFile = FileOpen($sFileName, $FO_OVERWRITE)
;~ FileWrite($hFile, $sFileRead)
;~ FileClose($hFile)

Alles anzeigen

und hier noch eins...

AutoIt

;-- TIME_STAMP   2018-10-15 03:28:06   v 0.1

#include <File.au3>

Local $sFileName = "KeePass.config.txt"

;~ If Not FileExists($sFileName) Then
    FileDelete($sFileName)
    FileWrite($sFileName, _
            "<Path>D:\Documents\KeePass\Test.kdbx</Path>" & @CRLF & _
            "<Test>Test</Test>" & @CRLF & _
            "<Path>E:\Documents\KeePass\Test.kdbx</Path>" & @CRLF & _
            "<Path>F:\Documents\KeePass\Test.kdbx</Path>" & @CRLF & _
            "<Ende>Ende</Ende>" & @CRLF)
;~ EndIf

Local $sFileRead = FileRead($sFileName)

_AddCounter($sFileRead, '(?i)<Path>([a-z].+)</Path>')
MsgBox(64, @ScriptName, $sFileRead & @CRLF & @CRLF & 'ReplaceCount = ' & @extended)

;~ Local $hFile = FileOpen($sFileName, $FO_OVERWRITE)
;~ FileWrite($hFile, $sFileRead)
;~ FileClose($hFile)

Func _AddCounter(ByRef $sString, $sPattern, $iCount = 1)
    While True
        $sString = StringRegExpReplace($sString, $sPattern, $iCount & '=\1', 1)
        If Not @extended Then Return SetExtended($iCount, $sString)
        $iCount += 1
    WEnd
EndFunc   ;==>_AddCounter

Alles anzeigen