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
Next
;~ next
ConsoleWrite($sFill)
Next
EndFunc ;==>_KeePass
KeePass.config.xml
Spoiler anzeigen
<?xml version="1.0" encoding="utf-8"?>
<Configuration xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<Meta>
<PreferUserConfiguration>false</PreferUserConfiguration>
<OmitItemsWithDefaultValues>true</OmitItemsWithDefaultValues>
</Meta>
<Application>
<LastUpdateCheck>2018-10-07T09:38:02Z</LastUpdateCheck>
<LastUsedFile>
<Path>D:\Documents\KeePass\Test.kdbx</Path>
<Path>F:\Documents\KeePass\Test.kdbx</Path>
<CredProtMode>Obf</CredProtMode>
<CredSaveMode>NoSave</CredSaveMode>
</LastUsedFile>
<MostRecentlyUsed>
<MaxItemCount>12</MaxItemCount>
<Items>
<ConnectionInfo>
<Path>D:\Documents\KeePass\Test.kdbx</Path>
<CredProtMode>Obf</CredProtMode>
<CredSaveMode>NoSave</CredSaveMode>
</ConnectionInfo>
</Items>
</MostRecentlyUsed>
<WorkingDirectories>
<Item>Database@D:\Documents\KeePass</Item>
<Item>Import@D:\Documents</Item>
</WorkingDirectories>
<Start>
<CheckForUpdate>true</CheckForUpdate>
<CheckForUpdateConfigured>true</CheckForUpdateConfigured>
</Start>
<FileOpening />
<FileClosing />
<TriggerSystem>
<Triggers />
</TriggerSystem>
</Application>
<Logging />
<MainWindow>
<X>595</X>
<Y>896</Y>
<Width>1877</Width>
<Height>1041</Height>
<SplitterHorizontalFrac>0.8333</SplitterHorizontalFrac>
<SplitterVerticalFrac>0.25</SplitterVerticalFrac>
<Layout>Default</Layout>
<ToolBar />
<EntryView />
<TanView />
<EntryListColumnCollection>
<Column>
<Type>Title</Type>
<Width>166</Width>
</Column>
<Column>
<Type>UserName</Type>
<Width>166</Width>
</Column>
<Column>
<Type>Password</Type>
<Width>166</Width>
<HideWithAsterisks>true</HideWithAsterisks>
</Column>
<Column>
<Type>Url</Type>
<Width>166</Width>
</Column>
<Column>
<Type>Notes</Type>
<Width>166</Width>
</Column>
</EntryListColumnCollection>
<EntryListColumnDisplayOrder>0 1 2 3 4</EntryListColumnDisplayOrder>
<ListSorting>
<Order>Ascending</Order>
</ListSorting>
</MainWindow>
<UI>
<TrayIcon />
<Hiding />
<StandardFont>
<Family>Microsoft Sans Serif</Family>
<Size>8.25</Size>
<GraphicsUnit>Point</GraphicsUnit>
<Style>Regular</Style>
<OverrideUIDefault>false</OverrideUIDefault>
</StandardFont>
<PasswordFont>
<Family>Courier New</Family>
<Size>8.25</Size>
<GraphicsUnit>Point</GraphicsUnit>
<Style>Regular</Style>
<OverrideUIDefault>false</OverrideUIDefault>
</PasswordFont>
<BannerStyle>WinVistaBlack</BannerStyle>
<DataEditorFont>
<Family>Microsoft Sans Serif</Family>
<Size>8.25</Size>
<GraphicsUnit>Point</GraphicsUnit>
<Style>Regular</Style>
<OverrideUIDefault>false</OverrideUIDefault>
</DataEditorFont>
<UIFlags>0</UIFlags>
<KeyCreationFlags>0</KeyCreationFlags>
<KeyPromptFlags>0</KeyPromptFlags>
</UI>
<Security>
<WorkspaceLocking>
<LockAfterTime>0</LockAfterTime>
<LockAfterGlobalTime>0</LockAfterGlobalTime>
</WorkspaceLocking>
<Policy />
<MasterPassword>
<MinimumLength>0</MinimumLength>
<MinimumQuality>0</MinimumQuality>
</MasterPassword>
</Security>
<Native />
<PasswordGenerator>
<AutoGeneratedPasswordsProfile>
<GeneratorType>CharSet</GeneratorType>
<Length>20</Length>
<CharSetRanges>ULD_______</CharSetRanges>
</AutoGeneratedPasswordsProfile>
<LastUsedProfile>
<GeneratorType>CharSet</GeneratorType>
<Length>20</Length>
<CharSetRanges>ULD_______</CharSetRanges>
</LastUsedProfile>
<UserProfiles />
</PasswordGenerator>
<Defaults>
<OptionsTabIndex>0</OptionsTabIndex>
<SearchParameters>
<ComparisonMode>InvariantCultureIgnoreCase</ComparisonMode>
</SearchParameters>
<KeySources />
</Defaults>
<Integration>
<HotKeyGlobalAutoType>393281</HotKeyGlobalAutoType>
<HotKeySelectedAutoType>0</HotKeySelectedAutoType>
<HotKeyShowWindow>393291</HotKeyShowWindow>
<HotKeyEntryMenu>0</HotKeyEntryMenu>
<UrlSchemeOverrides>
<BuiltInOverridesEnabled>1</BuiltInOverridesEnabled>
<CustomOverrides />
</UrlSchemeOverrides>
<ProxyType>System</ProxyType>
<ProxyAuthType>Auto</ProxyAuthType>
</Integration>
<Custom />
</Configuration>