Beiträge von Eistee

Eistee

McPoldy Danke So geht es Aber es ist zum aus der Hut fahren er macht es nicht richtig

Ich verschlüselle ABCDEFGHIJKLMNOPQRSTUVWXYZ MIT DIESEM SCRIPT

Spoiler anzeigen

[autoit]

Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll

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

#include <File.au3>
#include <GUIConstants.au3>

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\A.txt", 'C:\A.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\B.txt", 'C:\B.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\C.txt", 'C:\C.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\D.txt", 'C:\D.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\E.txt", 'C:\E.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\F.txt", 'C:\F.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\G.txt", 'C:\G.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\H.txt", 'C:\H.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\I.txt", 'C:\I.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\J.txt", 'C:\J.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\K.txt", 'C:\K.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\L.txt", 'C:\L.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\M.txt", 'C:\M.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\N.txt", 'C:\N.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\O.txt", 'C:\O.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\P.txt", 'C:\P.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Q.txt", 'C:\Q.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\R.txt", 'C:\R.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\S.txt", 'C:\S.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\T.txt", 'C:\T.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\U.txt", 'C:\U.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\V.txt", 'C:\V.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\W.txt", 'C:\W.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\X.txt", 'C:\X.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Y.txt", 'C:\Y.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Z.txt", 'C:\Z.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Enter.txt", 'C:\Enter.txt')

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\AU.txt", 'C:\AU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\BU.txt", 'C:\BU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\CU.txt", 'C:\CU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\DU.txt", 'C:\DU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EU.txt", 'C:\EU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\FU.txt", 'C:\FU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\GU.txt", 'C:\GU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\HU.txt", 'C:\HU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\IU.txt", 'C:\IU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\JU.txt", 'C:\JU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\KU.txt", 'C:\KU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\LU.txt", 'C:\LU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\MU.txt", 'C:\MU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\NU.txt", 'C:\NU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\OU.txt", 'C:\OU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\PU.txt", 'C:\PU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\QU.txt", 'C:\QU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\RU.txt", 'C:\RU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\SU.txt", 'C:\SU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\TU.txt", 'C:\TU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\UU.txt", 'C:\UU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\VU.txt", 'C:\VU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\WU.txt", 'C:\WU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\XU.txt", 'C:\XU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\YU.txt", 'C:\YU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\ZU.txt", 'C:\ZU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EnterU.txt", 'C:\EnterU.txt')

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

$Form1 = GUICreate("Hide1", 122, 623, 193, 125)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput(Fileread('C:\A.txt'), 0, 0, 121, 21)
$Input2 = GUICtrlCreateInput(Fileread('C:\B.txt'), 0, 24, 121, 21)
$Input3 = GUICtrlCreateInput(Fileread('C:\C.txt'), 0, 48, 121, 21)
$Input4 = GUICtrlCreateInput(Fileread('C:\D.txt'), 0, 72, 121, 21)
$Input5 = GUICtrlCreateInput(Fileread('C:\E.txt'), 0, 96, 121, 21)
$Input6 = GUICtrlCreateInput(Fileread('C:\F.txt'), 0, 120, 121, 21)
$Input7 = GUICtrlCreateInput(Fileread('C:\H.txt'), 0, 144, 121, 21)
$Input8 = GUICtrlCreateInput(Fileread('C:\I.txt'), 0, 168, 121, 21)
$Input9 = GUICtrlCreateInput(Fileread('C:\J.txt'), 0, 192, 121, 21)
$Input10 = GUICtrlCreateInput(Fileread('C:\K.txt'), 0, 216, 121, 21)
$Input11 = GUICtrlCreateInput(Fileread('C:\L.txt'), 0, 240, 121, 21)
$Input12 = GUICtrlCreateInput(Fileread('C:\M.txt'), 0, 264, 121, 21)
$Input13 = GUICtrlCreateInput(Fileread('C:\N.txt'), 0, 288, 121, 21)
$Input14 = GUICtrlCreateInput(Fileread('C:\O.txt'), 0, 312, 121, 21)
$Input15 = GUICtrlCreateInput(Fileread('C:\P.txt'), 0, 336, 121, 21)
$Input16 = GUICtrlCreateInput(Fileread('C:\Q.txt'), 0, 360, 121, 21)
$Input17 = GUICtrlCreateInput(Fileread('C:\R.txt'), 0, 384, 121, 21)
$Input18 = GUICtrlCreateInput(Fileread('C:\S.txt'), 0, 408, 121, 21)
$Input19 = GUICtrlCreateInput(Fileread('C:\T.txt'), 0, 432, 121, 21)
$Input20 = GUICtrlCreateInput(Fileread('C:\U.txt'), 0, 456, 121, 21)
$Input21 = GUICtrlCreateInput(Fileread('C:\V.txt'), 0, 480, 121, 21)
$Input22 = GUICtrlCreateInput(Fileread('C:\W.txt'), 0, 504, 121, 21)
$Input23 = GUICtrlCreateInput(Fileread('C:\X.txt'), 0, 528, 121, 21)
$Input24 = GUICtrlCreateInput(Fileread('C:\Y.txt'), 0, 552, 121, 21)
$Input25 = GUICtrlCreateInput(Fileread('C:\Z.txt'), 0, 576, 121, 21)
$Input27 = GUICtrlCreateInput(Fileread('C:\G.txt'), 0, 576, 121, 21)
$Input26 = GUICtrlCreateInput(Fileread('C:\Enter.txt'), 0, 600, 121, 21)
GUISetState(@SW_Hide)

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

$Form2 = GUICreate("Hide1", 122, 623, 463, 125)
GUISetBkColor(0x000000)
$Input28 = GUICtrlCreateInput(Fileread('C:\AU.txt'), 0, 0, 121, 21)
$Input29 = GUICtrlCreateInput(Fileread('C:\BU.txt'), 0, 24, 121, 21)
$Input30 = GUICtrlCreateInput(Fileread('C:\CU.txt'), 0, 48, 121, 21)
$Input31 = GUICtrlCreateInput(Fileread('C:\DU.txt'), 0, 72, 121, 21)
$Input32 = GUICtrlCreateInput(Fileread('C:\EU.txt'), 0, 96, 121, 21)
$Input33 = GUICtrlCreateInput(Fileread('C:\FU.txt'), 0, 120, 121, 21)
$Input34 = GUICtrlCreateInput(Fileread('C:\GU.txt'), 0, 144, 121, 21)
$Input35 = GUICtrlCreateInput(Fileread('C:\HU.txt'), 0, 168, 121, 21)
$Input36 = GUICtrlCreateInput(Fileread('C:\IU.txt'), 0, 192, 121, 21)
$Input37 = GUICtrlCreateInput(Fileread('C:\JU.txt'), 0, 216, 121, 21)
$Input38 = GUICtrlCreateInput(Fileread('C:\KU.txt'), 0, 240, 121, 21)
$Input39 = GUICtrlCreateInput(Fileread('C:\LU.txt'), 0, 264, 121, 21)
$Input40 = GUICtrlCreateInput(Fileread('C:\MU.txt'), 0, 288, 121, 21)
$Input41 = GUICtrlCreateInput(Fileread('C:\NU.txt'), 0, 312, 121, 21)
$Input42 = GUICtrlCreateInput(Fileread('C:\OU.txt'), 0, 336, 121, 21)
$Input43 = GUICtrlCreateInput(Fileread('C:\PU.txt'), 0, 360, 121, 21)
$Input44 = GUICtrlCreateInput(Fileread('C:\QU.txt'), 0, 384, 121, 21)
$Input45 = GUICtrlCreateInput(Fileread('C:\RU.txt'), 0, 408, 121, 21)
$Input46 = GUICtrlCreateInput(Fileread('C:\SU.txt'), 0, 432, 121, 21)
$Input47 = GUICtrlCreateInput(Fileread('C:\TU.txt'), 0, 456, 121, 21)
$Input48 = GUICtrlCreateInput(Fileread('C:\UU.txt'), 0, 480, 121, 21)
$Input49 = GUICtrlCreateInput(Fileread('C:\VU.txt'), 0, 504, 121, 21)
$Input50 = GUICtrlCreateInput(Fileread('C:\WU.txt'), 0, 528, 121, 21)
$Input51 = GUICtrlCreateInput(Fileread('C:\XU.txt'), 0, 552, 121, 21)
$Input52 = GUICtrlCreateInput(Fileread('C:\YU.txt'), 0, 576, 121, 21)
$Input53 = GUICtrlCreateInput(Fileread('C:\ZU.txt'), 0, 600, 121, 21)
$Input54 = GUICtrlCreateInput(Fileread('C:\EnterU.txt'), 0, 600, 121, 21)
GUISetState(@SW_HIDE)
;Func

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

_FileReadToArray($filename,$meinarray)

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

_Replace(GUICtrlRead($Input28),(GUICtrlRead($Input1)));AU_____A
_Replace(GUICtrlRead($Input29),(GUICtrlRead($Input2)));BU_____B
_Replace(GUICtrlRead($Input30),(GUICtrlRead($Input3)));CU_____C
_Replace(GUICtrlRead($Input34),(GUICtrlRead($Input27)));GU_____G
_Replace(GUICtrlRead($Input31),(GUICtrlRead($Input4)));DU_____D
_Replace(GUICtrlRead($Input32),(GUICtrlRead($Input5)));EU_____E
_Replace(GUICtrlRead($Input35),(GUICtrlRead($Input7)));HU_____H
_Replace(GUICtrlRead($Input36),(GUICtrlRead($Input8)));IU_____I
_Replace(GUICtrlRead($Input37),(GUICtrlRead($Input9)));JU_____J
_Replace(GUICtrlRead($Input39),(GUICtrlRead($Input11)));LU_____L
_Replace(GUICtrlRead($Input40),(GUICtrlRead($Input12)));MU_____M
_Replace(GUICtrlRead($Input41),(GUICtrlRead($Input13)));NU_____N
_Replace(GUICtrlRead($Input42),(GUICtrlRead($Input14)));OU_____O
_Replace(GUICtrlRead($Input43),(GUICtrlRead($Input15)));PU_____P
_Replace(GUICtrlRead($Input44),(GUICtrlRead($Input16)));QU_____Q
_Replace(GUICtrlRead($Input45),(GUICtrlRead($Input17)));RU_____R
_Replace(GUICtrlRead($Input46),(GUICtrlRead($Input18)));SU_____S
_Replace(GUICtrlRead($Input47),(GUICtrlRead($Input19)));TU_____T
_Replace(GUICtrlRead($Input48),(GUICtrlRead($Input20)));UU_____U
_Replace(GUICtrlRead($Input49),(GUICtrlRead($Input21)));VU_____V
_Replace(GUICtrlRead($Input50),(GUICtrlRead($Input22)));WU_____W
_Replace(GUICtrlRead($Input51),(GUICtrlRead($Input23)));XU_____X
_Replace(GUICtrlRead($Input52),(GUICtrlRead($Input24)));YU_____Y
_Replace(GUICtrlRead($Input53),(GUICtrlRead($Input25)));ZU_____Z
_Replace(GUICtrlRead($Input54),(GUICtrlRead($Input26)));EnterU_____Enter
_Replace(GUICtrlRead($Input33),(GUICtrlRead($Input6)));FU_____F
_Replace(GUICtrlRead($Input38),(GUICtrlRead($Input10)));KU_____K
_Replace(GUICtrlRead($Input43),(GUICtrlRead($Input15)));PU_____P
_Replace(GUICtrlRead($Input47),(GUICtrlRead($Input19)));TU_____T
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Func _Replace($newEXP,$oldEXP)
Local $nLfd

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

For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],$oldEXP,'' & $newEXP & '')
Next
EndFunc

[/autoit]

Und das Kommt leider raus ABCDEFHIJTLMNOPQRSTUVWXYZ (nach dem entschlüsseln mit nem tool das geht)

Die txt´s sind im anhang

Xenobiologist weil ich das prinzip noch nicht verstehe ich habe keine beispiele die mir genau erklären was man mit arrays kann die hilfe ist für mich zu kompliziert daher benötige ich eben beispiele ich würde es ja mit deinem beispiel versuchen jedoch weis ich nicht ob er funktioniert schliesslich macht er seinen job nicht in einer txt datei und ich wüsste jetzt nicht wie ich das einfügen könnte

P.s. habe es vorhin so versucht ging aber nicht

Spoiler anzeigen

[autoit]

#include <File.au3>

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

Global $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Global $meinarray
_FileReadToArray($filename,$meinarray)
Global $text = $meinarray
Global $org_A = StringSplit('ABCDEFGHIJKLMNOPQRSTUVWXYZ', '')
Global $map_A = StringSplit('qaswedfrtghzujkiolöpüä#+?[', '')

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

Global $text_Encrypted = _mapping($text, $org_A, $map_A)
Global $text_Decrypted = _mapping($text_Encrypted,$map_A, $org_A)

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

ConsoleWrite('!--- Original --- ' & @CRLF)
ConsoleWrite($text & @CRLF)
ConsoleWrite('!--- Verschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Encrypted & @CRLF)
ConsoleWrite('!--- Entschlüsselt --- ' & @CRLF)
ConsoleWrite($text_Decrypted & @CRLF)

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

Func _mapping($txt, $org_A, $map_A)
;~ ConsoleWrite(UBound($org_A) & " " & UBound($map_A) & @CRLF)
If UBound($org_A) <> UBound($map_A) Then Return -1
For $i = 1 To UBound($org_A) -1
$txt = StringReplace($txt, $org_A[$i], $map_A[$i], 0, 1)
Next
Return $txt
EndFunc ;==>_mapping

[/autoit]

Eistee

Ich Glaube ich steig noch nicht so ganz durch
Warum sagt der Script er hatt einen fehler in zeile 133
mit dem befehl _Replace ?

Spoiler anzeigen

[autoit]

Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll

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

#include <File.au3>
#include <GUIConstants.au3>

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\A.txt", 'C:\A.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\B.txt", 'C:\B.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\C.txt", 'C:\C.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\D.txt", 'C:\D.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\E.txt", 'C:\E.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\F.txt", 'C:\F.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\G.txt", 'C:\G.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\H.txt", 'C:\H.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\I.txt", 'C:\I.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\J.txt", 'C:\J.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\K.txt", 'C:\K.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\L.txt", 'C:\L.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\M.txt", 'C:\M.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\N.txt", 'C:\N.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\O.txt", 'C:\O.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\P.txt", 'C:\P.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Q.txt", 'C:\Q.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\R.txt", 'C:\R.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\S.txt", 'C:\S.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\T.txt", 'C:\T.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\U.txt", 'C:\U.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\V.txt", 'C:\V.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\W.txt", 'C:\W.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\X.txt", 'C:\X.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Y.txt", 'C:\Y.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Z.txt", 'C:\Z.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\Enter.txt", 'C:\Enter.txt')

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

FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\AU.txt", 'C:\AU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\BU.txt", 'C:\BU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\CU.txt", 'C:\CU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\DU.txt", 'C:\DU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EU.txt", 'C:\EU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\FU.txt", 'C:\FU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\GU.txt", 'C:\GU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\HU.txt", 'C:\HU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\IU.txt", 'C:\IU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\JU.txt", 'C:\JU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\KU.txt", 'C:\KU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\LU.txt", 'C:\LU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\MU.txt", 'C:\MU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\NU.txt", 'C:\NU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\OU.txt", 'C:\OU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\PU.txt", 'C:\PU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\QU.txt", 'C:\QU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\RU.txt", 'C:\RU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\SU.txt", 'C:\SU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\TU.txt", 'C:\TU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\UU.txt", 'C:\UU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\VU.txt", 'C:\VU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\WU.txt", 'C:\WU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\XU.txt", 'C:\XU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\YU.txt", 'C:\YU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\ZU.txt", 'C:\ZU.txt')
FileInstall("C:\Users\WoW-Unit\Desktop\Txt´S\EnterU.txt", 'C:\EnterU.txt')

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Hide1", 122, 623, 463, 125)
GUISetBkColor(0x000000)
$Input28 = GUICtrlCreateInput(Fileread('C:\AU.txt'), 0, 0, 121, 21)
$Input29 = GUICtrlCreateInput(Fileread('C:\BU.txt'), 0, 24, 121, 21)
$Input30 = GUICtrlCreateInput(Fileread('C:\CU.txt'), 0, 48, 121, 21)
$Input31 = GUICtrlCreateInput(Fileread('C:\DU.txt'), 0, 72, 121, 21)
$Input32 = GUICtrlCreateInput(Fileread('C:\EU.txt'), 0, 96, 121, 21)
$Input33 = GUICtrlCreateInput(Fileread('C:\FU.txt'), 0, 120, 121, 21)
$Input34 = GUICtrlCreateInput(Fileread('C:\GU.txt'), 0, 144, 121, 21)
$Input35 = GUICtrlCreateInput(Fileread('C:\HU.txt'), 0, 168, 121, 21)
$Input36 = GUICtrlCreateInput(Fileread('C:\IU.txt'), 0, 192, 121, 21)
$Input37 = GUICtrlCreateInput(Fileread('C:\JU.txt'), 0, 216, 121, 21)
$Input38 = GUICtrlCreateInput(Fileread('C:\KU.txt'), 0, 240, 121, 21)
$Input39 = GUICtrlCreateInput(Fileread('C:\LU.txt'), 0, 264, 121, 21)
$Input40 = GUICtrlCreateInput(Fileread('C:\MU.txt'), 0, 288, 121, 21)
$Input41 = GUICtrlCreateInput(Fileread('C:\NU.txt'), 0, 312, 121, 21)
$Input42 = GUICtrlCreateInput(Fileread('C:\OU.txt'), 0, 336, 121, 21)
$Input43 = GUICtrlCreateInput(Fileread('C:\PU.txt'), 0, 360, 121, 21)
$Input44 = GUICtrlCreateInput(Fileread('C:\QU.txt'), 0, 384, 121, 21)
$Input45 = GUICtrlCreateInput(Fileread('C:\RU.txt'), 0, 408, 121, 21)
$Input46 = GUICtrlCreateInput(Fileread('C:\SU.txt'), 0, 432, 121, 21)
$Input47 = GUICtrlCreateInput(Fileread('C:\TU.txt'), 0, 456, 121, 21)
$Input48 = GUICtrlCreateInput(Fileread('C:\UU.txt'), 0, 480, 121, 21)
$Input49 = GUICtrlCreateInput(Fileread('C:\VU.txt'), 0, 504, 121, 21)
$Input50 = GUICtrlCreateInput(Fileread('C:\WU.txt'), 0, 528, 121, 21)
$Input51 = GUICtrlCreateInput(Fileread('C:\XU.txt'), 0, 552, 121, 21)
$Input52 = GUICtrlCreateInput(Fileread('C:\YU.txt'), 0, 576, 121, 21)
$Input53 = GUICtrlCreateInput(Fileread('C:\ZU.txt'), 0, 600, 121, 21)
$Input54 = GUICtrlCreateInput(Fileread('C:\EnterU.txt'), 0, 600, 121, 21)
GUISetState(@SW_HIDE)

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

$Form1 = GUICreate("Hide1", 122, 623, 193, 125)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput(Fileread('C:\A.txt'), 0, 0, 121, 21)
$Input2 = GUICtrlCreateInput(Fileread('C:\B.txt'), 0, 24, 121, 21)
$Input3 = GUICtrlCreateInput(Fileread('C:\C.txt'), 0, 48, 121, 21)
$Input4 = GUICtrlCreateInput(Fileread('C:\D.txt'), 0, 72, 121, 21)
$Input5 = GUICtrlCreateInput(Fileread('C:\E.txt'), 0, 96, 121, 21)
$Input6 = GUICtrlCreateInput(Fileread('C:\F.txt'), 0, 120, 121, 21)
$Input7 = GUICtrlCreateInput(Fileread('C:\H.txt'), 0, 144, 121, 21)
$Input8 = GUICtrlCreateInput(Fileread('C:\I.txt'), 0, 168, 121, 21)
$Input9 = GUICtrlCreateInput(Fileread('C:\J.txt'), 0, 192, 121, 21)
$Input10 = GUICtrlCreateInput(Fileread('C:\K.txt'), 0, 216, 121, 21)
$Input11 = GUICtrlCreateInput(Fileread('C:\L.txt'), 0, 240, 121, 21)
$Input12 = GUICtrlCreateInput(Fileread('C:\M.txt'), 0, 264, 121, 21)
$Input13 = GUICtrlCreateInput(Fileread('C:\N.txt'), 0, 288, 121, 21)
$Input14 = GUICtrlCreateInput(Fileread('C:\O.txt'), 0, 312, 121, 21)
$Input15 = GUICtrlCreateInput(Fileread('C:\P.txt'), 0, 336, 121, 21)
$Input16 = GUICtrlCreateInput(Fileread('C:\Q.txt'), 0, 360, 121, 21)
$Input17 = GUICtrlCreateInput(Fileread('C:\R.txt'), 0, 384, 121, 21)
$Input18 = GUICtrlCreateInput(Fileread('C:\S.txt'), 0, 408, 121, 21)
$Input19 = GUICtrlCreateInput(Fileread('C:\T.txt'), 0, 432, 121, 21)
$Input20 = GUICtrlCreateInput(Fileread('C:\U.txt'), 0, 456, 121, 21)
$Input21 = GUICtrlCreateInput(Fileread('C:\V.txt'), 0, 480, 121, 21)
$Input22 = GUICtrlCreateInput(Fileread('C:\W.txt'), 0, 504, 121, 21)
$Input23 = GUICtrlCreateInput(Fileread('C:\X.txt'), 0, 528, 121, 21)
$Input24 = GUICtrlCreateInput(Fileread('C:\Y.txt'), 0, 552, 121, 21)
$Input25 = GUICtrlCreateInput(Fileread('C:\Z.txt'), 0, 576, 121, 21)
$Input27 = GUICtrlCreateInput(Fileread('C:\G.txt'), 0, 576, 121, 21)
$Input26 = GUICtrlCreateInput(Fileread('C:\Enter.txt'), 0, 600, 121, 21)
GUISetState(@SW_Hide)

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

;Func

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

_FileReadToArray($filename,$meinarray)

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

_Replace("·",(GUICtrlRead($Input1);A
_Replace("á",(GUICtrlRead($Input2);B
_Replace("‹",(GUICtrlRead($Input3);C
_Replace("der",(GUICtrlRead($Input27);G
_Replace("Ö",(GUICtrlRead($Input4);D
_Replace("†",(GUICtrlRead($Input5);E
_Replace("*",(GUICtrlRead($Input6);F
_Replace("",(GUICtrlRead($Input7);H
_Replace("'",(GUICtrlRead($Input8);I
_Replace("<",(GUICtrlRead($Input9);J
_Replace("—",(GUICtrlRead($Input10);K
_Replace("ª",(GUICtrlRead($Input11);L
_Replace("Ñ",(GUICtrlRead($Input12);M
_Replace("›",(GUICtrlRead($Input13);N
_Replace("|",(GUICtrlRead($Input14);O
_Replace("à",(GUICtrlRead($Input15);P
_Replace("",(GUICtrlRead($Input16);Q
_Replace("§",(GUICtrlRead($Input17);R
_Replace("2",(GUICtrlRead($Input18);S
_Replace("e",(GUICtrlRead($Input19);T
_Replace("z",(GUICtrlRead($Input20);U
_Replace("U",(GUICtrlRead($Input21);V
_Replace("I",(GUICtrlRead($Input22);W
_Replace("T",(GUICtrlRead($Input23);X
_Replace("A",(GUICtrlRead($Input24);Y
_Replace("l",(GUICtrlRead($Input25);Z
_Replace("l",(GUICtrlRead($Input26);Enter

_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Func _Replace($newEXP,$oldEXP)
Local $nLfd

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

For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],$oldEXP,'' & $newEXP & '')
Next
EndFunc

[/autoit]

Eistee

Xenobiologist
Danke für das Beispiel das sollte auch funzen das problem ist
das jeder buchstabe in ein spezielles zeichen umgewandelt werden also bringt mir dieses beispiel für meine momentanen Zwecke leider nichts

Eistee

Funktioniert string encrypt hier muss ja speciel verschlüsselt werden

Eistee

Spoiler anzeigen

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

; Brauch ich für das einlesen der Datei und das schreiben
#include <File.au3>
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 208, 33, 193, 125)
FileInstall("C:\Users\WoW-Unit\Desktop\G.txt", "C:\G.txt")
$Input2 = GUICtrlCreateInput(Fileread('C:\G.txt'), 8, 0, 193, 21)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

;_________GroßBuchstaben____________________________________________________________________________________________________________________________________________

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "·"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'A','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "á"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'C','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "‹"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'E','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = GUICtrlRead($Input2); Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'G','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "Ö"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'H','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "†"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'I','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "*"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'J','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = ""; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable um zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'Z','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "'"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'L','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "<"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'M','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "—"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'N','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "ª"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'Q','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "Ñ"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'R','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "›"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'S','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "|"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'U','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "à"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'V','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = ""; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'W','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "§"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'Y','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "2"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'B','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "e"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'O','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "z"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'D','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "U"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'F','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "I"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'T','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "T"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'K','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "A"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'P','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

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

Sleep(100)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "l"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'X','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

[/autoit]

Dieser scrippt Funktioniert 99%ig nur leider Hängt er ein z Mitten Hinen
Woran Liegt das ?

Zur Hilfe was gemeint ist Der anhang

testdatei - Copy.TXT ist der original text

Testdatei.TXT ist gecrypted

2.TXT ist encrypted auch richtig nur ist ein z mittem im text was mache ich hier falsch ?

Eistee

McPoldy
Du ich weiss das ich grade um Viel Bitte

Aber Glaube Mir ich habe mir abgewohnt nach sachen zu fragen die ich selber rauskriege

ich hocke seit heute morgen um 100 uhr an dem script und war nur mal ne std. afk

ich packe das nit

Eistee

Sry McPoldi

Aber so Passiert Überhaupt nichts

Eistee

BugFix Danke Für den Tipp aber der Bringt leider keinen erfolg

das problem liegt direkt an
)

In dem script hier habe ich es ohne fileread versucht ,müsste eigentlich ach klappen

Spoiler anzeigen

[autoit]

; Brauch ich für das einlesen der Datei und das schreiben
#include <File.au3>

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "»"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],')','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

[/autoit]

Doch auch hier passiert nichts
ersetze ich jedoch
) Durch etwas anderes geht es ...

Kannste mir da auch helfen ?

Eistee

Jo das funzt schon aber ich muss das ja für alle machen und mit multiplikator
habe es jetzt mal so versucht da passiert auch nichts

Spoiler anzeigen

[autoit]

#include <File.au3>

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir &"\ItemGroup.txt" ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $meinarray1
Local $newEXP ; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen
Local $nLfd1
Local $alterWert ; Für den alten Wert
Local $Multiplikator = 10 ; Mit was * genommen werden soll
Local $arr ; Hilfs - Array
Local $hFile ; FileHandle
Local $alterWert1 = 920

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

$hFile = FileOpen($filename,0) ; Datei zum lesen öffnen
_FileReadToArray($filename,$meinarray) ; Hier wird die Datei eingelesen und in ein Array gepackt
FileClose($hFile) ; Datei schliessen

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

; Datei zum schreiben öffnen
$hFile = FileOpen($filename,2)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann

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

For $nLfd = 1 To $meinarray[0]
$arr = StringRegExp($meinarray[$nLfd],'$money \((' & $alterWert1 & ')$\)','(money $(' & $alterWert1 & ')$\)',3)
If Not @error AND IsArray($arr) Then
$alterWert = $arr[0]
$neuerWert = $alterWert1 * $Multiplikator
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'$money \((' & $alterWert1 & ')$\)','(money (' & $neuerWert & '))')
EndIf
If $nLfd <> $meinarray[0] Then $meinarray[$nLfd] &= @CRLF
FileWrite($hFile,$meinarray[$nLfd])
Next
; Datei schliessen
FileClose($hFile)

[/autoit]

Eistee

McPoldy
Danke das is super es funzt
Kann man das jetzt noch so einrichten das es mit mehrstelligen und anderen zahlen kompatible ist ?

Habe es FolgenderMassen versucht

Spoiler anzeigen

[autoit]

#include <File.au3>

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir &"ItemGroup.txt" ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $meinarray1
Local $newEXP ; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen
Local $nLfd1
Local $alterWert ; Für den alten Wert
Local $Multiplikator = 10 ; Mit was * genommen werden soll
Local $arr ; Hilfs - Array
Local $hFile ; FileHandle

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

$hFile = FileOpen($filename,0) ; Datei zum lesen öffnen
_FileReadToArray($filename,$meinarray) ; Hier wird die Datei eingelesen und in ein Array gepackt
FileClose($hFile) ; Datei schliessen

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

; Datei zum schreiben öffnen
$hFile = FileOpen($filename,2)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann

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

For $nLfd = 1 To $meinarray[0]
$arr = StringRegExp($meinarray[$nLfd],'$money \((920 200)$\)','(money ((920 200))',3)
If Not @error AND IsArray($arr) Then
$alterWert = $arr[0]
$newEXP = $alterWert * $Multiplikator
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'$money \((920 200)$\)','(money ((' & $newEXP & '))')
EndIf
If $nLfd <> $meinarray[0] Then $meinarray[$nLfd] &= @CRLF
FileWrite($hFile,$meinarray[$nLfd])
Next
; Datei schliessen
FileClose($hFile)

[/autoit]

aber es passiert nichts...

Und so auch nicht

Spoiler anzeigen

[autoit]

#include <File.au3>

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir &"\ItemGroup.txt" ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $meinarray1
Local $newEXP ; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen
Local $nLfd1
Local $alterWert ; Für den alten Wert
Local $Multiplikator = 10 ; Mit was * genommen werden soll
Local $arr ; Hilfs - Array
Local $hFile ; FileHandle

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

$hFile = FileOpen($filename,0) ; Datei zum lesen öffnen
_FileReadToArray($filename,$meinarray) ; Hier wird die Datei eingelesen und in ein Array gepackt
FileClose($hFile) ; Datei schliessen

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

; Datei zum schreiben öffnen
$hFile = FileOpen($filename,2)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann

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

For $nLfd = 1 To $meinarray[0]
$arr = StringRegExp($meinarray[$nLfd],'$money \((\d\d\d \d\d\d)$\)','(money ((\d\d\d \d\d\d))',3)
If Not @error AND IsArray($arr) Then
$alterWert = $arr[0]
$newEXP = $alterWert * $Multiplikator
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'$money \((\d\d\d \d\d\d)$\)','(money ((' & $newEXP & '))')
EndIf
If $nLfd <> $meinarray[0] Then $meinarray[$nLfd] &= @CRLF
FileWrite($hFile,$meinarray[$nLfd])
Next
; Datei schliessen
FileClose($hFile)

[/autoit]

Eistee

Hallo Leute Habe Folgendes problem

Spoiler anzeigen

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

; Brauch ich für das einlesen der Datei und das schreiben
#include <File.au3>
#include <GUIConstants.au3>

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

$Form2 = GUICreate("Form1", 208, 33, 193, 125)
FileInstall("C:\Users\WoW-Unit\Desktop\).txt", "C:\).txt")
$Input2 = GUICtrlCreateInput(Fileread('C:\).txt'), 8, 0, 193, 21)
GUISetState(@SW_HIDE)

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

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = "»"; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen

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

; Hier wird die Datei eingelesen und in ein Array gepackt
_FileReadToArray($filename,$meinarray)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann
For $nLfd = 1 To $meinarray[0]
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],')','' & $newEXP & '')
Next

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

; Da (falls gefunden) die Ersetzung im Array stattgefunden hat, muss ich
; das Array wieder in die Datei schreiben
_FileWriteFromArray($filename,$meinarray,1,$meinarray[0])

[/autoit]

wenn ich dieses script ausführe passiert nichts

dieser script funktioniert eigentlisch schon nur nicht wenn ich ) ersetze das muss aber so sein da der script sonst nicht für meine zwecke geignet ist wie kann ich das umgehen ?

Eistee

Ok hier

erste is die echte
zweite das ergebnis
und zwar musste gucken auf (money 960 200) Soll mit 10 Multipliziert werden

Eistee

Xenobiologist ach ja ich wollte dir nur sagen das ich das mit dem Stringreplace nicht auf das neue umbauen kann ich bekomme das nicht hin was ist hier falsch ?

Spoiler anzeigen

[autoit]

; Brauch ich für das einlesen der Datei und das schreiben
#include <File.au3>
#include <GUIConstants.au3>

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

Const $szIniName = StringLeft("C:\EXP-Changer.ini",StringInStr("C:\EXP-Changer.ini",".",0,-1)) & "ini"
Const $szIniNam = StringLeft("C:\EXP-Changer.ini",StringInStr("C:\EXP-Changer.ini",".",0,-1)) & "ini"
Const $szIniNa = StringLeft("C:\EXP-Changer.ini",StringInStr("C:\EXP-Changer.ini",".",0,-1)) & "ini"

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

#Region ### START Koda GUI section ### Form=c:\users\wow-unit\desktop\exp.kxf
$Exp = GUICreate("Exp-Editor", 344, 172, 429, 403)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Browse", 8, 64, 40, 21, 0)
$Button2 = GUICtrlCreateButton("UPGRADE-EXP", 8, 128, 154, 25, 0)
$Input1 = GUICtrlCreateInput(IniRead($szIniName, "This is The Dir Of InitMonster.txt", "default", "\Config"), 56, 64, 105, 21)
$Input2 = GUICtrlCreateInput(IniRead($szIniNam, "This Is Your Exp-Rate", "default", "1"), 56, 96, 105, 21)
$Label2 = GUICtrlCreateLabel("EXP x", 8, 96, 42, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0C0C0)
FileInstall("C:\Users\WoW-Unit\Desktop\Programmieren\Autoit\Beispiele\Exp-Editor\Trennstrich.bmp", "C:\Trennstrich.bmp")
FileInstall("C:\Users\WoW-Unit\Desktop\Programmieren\Autoit\Beispiele\Exp-Editor\EXP-UPDATE.bmp", "C:\EXP-UPDATE.bmp")
FileInstall("C:\Users\WoW-Unit\Desktop\Programmieren\Autoit\Beispiele\Exp-Editor\EXP-DOWNGRADE.bmp", "C:\EXP-DOWNGRADE.bmp")
$Pic2 = GUICtrlCreatePic("C:\Trennstrich.bmp", 168, 0, 2, 170, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("C:\EXP-UPDATE.bmp", 8, 8, 148, 23, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("C:\EXP-DOWNGRADE.bmp", 184, 8, 148, 31, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label3 = GUICtrlCreateLabel("Directory of InitMonster.txt", 176, 36, 162, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label1 = GUICtrlCreateLabel(" Directory of InitMonster.txt", 1, 36, 167, 20)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0C0C0)
$Button3 = GUICtrlCreateButton("Browse", 176, 64, 40, 21, 0)
$Input3 = GUICtrlCreateInput(IniRead($szIniName, "This is The Dir Of InitMonster.txt", "default", "\Config"), 224, 64, 113, 21)
$Label4 = GUICtrlCreateLabel("EXP /", 176, 96, 41, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xC0C0C0)
$Input4 = GUICtrlCreateInput(IniRead($szIniNa, "This Is Your Exp-Rate/", "default", "1"), 224, 96, 113, 21)
$Button4 = GUICtrlCreateButton("DOWNGRADE-EXP", 176, 128, 162, 25, 0)
$Label5 = GUICtrlCreateLabel("<c> WoW-Unit", 240, 154, 95, 17)
GUICtrlSetFont(-1, 4, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_1()
Case $Button3
_2()
Case $Button2
_3()
Case $Button4
_4()
EndSwitch
WEnd

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

Func _1()
$var = FileSelectFolder("The Directory of InitMonter.txt (In Config Folder Of ServerSide)", "", 1) ; Öffnet menu zum wählen des verzeichnisses
GUICtrlSetData($Input1, $var,) ; setzt des gewählte verzeichnis in den input 1
Endfunc

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

Func _2()
$var = FileSelectFolder("The Directory of InitMonter.txt (In Config Folder Of ServerSide)", "", 1) ; Öffnet menu zum wählen des verzeichnisses
GUICtrlSetData($Input3, $var,) ; setzt des gewählte verzeichnis in den input 1
Endfunc

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

Func _3()
IniWrite($szIniName, "This is The Dir Of InitMonster.txt","default",GUICtrlRead($Input1))
IniWrite($szIniNam, "This Is Your Exp-Rate","default",GUICtrlRead($Input2))

ProgressOn("Status EXP-Changing", "Status EXP-Changing", "0 %")
For $i = 10 to 100 step 10
sleep(400)
ProgressSet( $i, $i & "%")
Next
ProgressSet(100 , "Fertig", "100 %")
sleep(10)
ProgressOff()

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

; Brav alle Variablen deklarieren
Local $filename = GUICtrlRead($Input1) & '\ItemGroup.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $meinarray1
Local $newEXP ; Der neue Wert der in exp rein soll
Local $nLfd ; einfach ein Variable zum zählen
Local $nLfd1
Local $alterWert ; Für den alten Wert
Local $Multiplikator = GUICtrlRead($Input2) ; Mit was * genommen werden soll
Local $arr ; Hilfs - Array
Local $hFile ; FileHandle

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

$hFile = FileOpen($filename,0) ; Datei zum lesen öffnen
_FileReadToArray($filename,$meinarray) ; Hier wird die Datei eingelesen und in ein Array gepackt
FileClose($hFile) ; Datei schliessen

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

; Datei zum schreiben öffnen
$hFile = FileOpen($filename,2)

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

; Hier prüfe ich jede Zeile im Array (von 1 bis maximal Index, der in Index 0 steht)
; ob er was ersetzen kann

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

For $nLfd = 1 To $meinarray[0]
$arr = StringRegExp($meinarray[$nLfd],'\(money (920 200))',3)
If Not @error AND IsArray($arr) Then
$alterWert = $arr[0]
$newEXP = $alterWert * $Multiplikator
$meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'\(money (920 200))','(money (' & $newEXP & '))')
EndIf
If $nLfd <> $meinarray[0] Then $meinarray[$nLfd] &= @CRLF
FileWrite($hFile,$meinarray[$nLfd])
Next
; Datei schliessen
FileClose($hFile)

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

exit
EndFunc

[/autoit]

Eistee

Xenobiologist
ich habe es jetzt geschaft er macht was er soll nur ein riesen problem
es kommt ne fehlermeldung
und zwr unterminatet strin ">
oder so und zwar hier

Spoiler anzeigen

[autoit]

; Brav alle Variablen deklarieren
Local $filename = @ScriptDir & '\testdatei.txt' ; Name der Datei
Local $meinarray ; Darin lege ich die Datei ab und ändere den Wert auf den neuen
Local $newEXP = ""
Local $nLfd ; einfach ein Variable zum zählen

[/autoit]

Xenobiologist der script is im anhang
P.S. der fehler mit dem string is bei dem anhang gelöscht (er ersetzt somit kein G)
ich brauche aber noch immer abhilfe bei dem fehler...

Eistee

Glaube mir ich sitz da seit 4 stunden dran...

Eistee

wieso dumm ?
ich habe ja ein tool das das encrypted nur is das nit in autoit und nicht von mir geschrieben
das problem bei dem tool ist aber zum crypten/entcrypten muss man die txt auf das tool zeihen und dann entsteht die.dat
ich will das aber anders regeln muss deshalb erstmal hinbekommen das er richtig crypted

meine idee war so aber ich habe so meine probleme

Spoiler anzeigen

[autoit]

#include <File.au3>

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

Local $File = @ScriptDir & '\teste.txt'
Local $meinarray
Local $NewFile
Local $alterWert
Local $hFile
Local $nLfd ; einfach ein Variable zum zählen

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

$hFile = FileOpen($File,0) ; Datei zum lesen öffnen
_FileReadToArray($File,$meinarray) ; Hier wird die Datei eingelesen und in ein Array gepackt
FileClose($hFile) ; Datei schliessen

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

StringRegExp($meinarray,"b",3)

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

$hFile = FileOpen($File,2)
$meinarray = StringRegExpReplace($meinarray,"b","","½")

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

FileClose($hFile) ; Datei schliessen

[/autoit]

könnte mir da bitte jemand den fehler nennen ?

Eistee

@pethebee wie meinen ?
wasn das? irreversibel?

Eistee

Hi ich weis jetzt nicht ob ich hier richtig bin Wenn nicht bitte verschieben

ich wollte nur fragen ob es autoit möglich ist so zu verschlüsseln :

Es gibt die test .txt die wird zu test.dat
allerdings wird da verschlüsselt

habe es so gemacht das ich a- z lauter .txt gemacht diese convertiert habe
jetzt weis ich was die einzelnen buchstaben für ein zeichen sind nach der verschlüsselung
Theoretisch könnte ich jetzt die boardsuche verwenden und dann crypt beispiele holen die sachen dementschprechend anpassen
aber:
folgendes problem,
sowohl bei a als auch bei e
werden keine zeichen verwendet also wenn ich ne a oder e txt convertiere ist die .dat leer
allerdings ist sicher irgendwie ersichtlich was es ist denn wenn ich diese deconvertiere stehen da wieder a und e
wie finde ich jetzt heraus was ich autoit für a oder e mitgeben muss in was er es umwandeln soll ?

Eistee

Hallo Leute möchte mich nochmal bedanken
und habe leider auch ein neues prob

im jetztigen script passiert ja folgendes
(exp 20) *3 =(exp 60)
und das funktioniert das problem ist das ich diese methode gerne noch bei einer anderen txt verwenden möchte
aber das steht es nicht so (exp 20) sondern so (money 20 40)
also mit einer leertatse zwischen den zahlen habe mal versucht das im script anzupassen hatte aber nicht geklappt
weis da jemand rat evt. ?

Eistee

Danke Ihr seid Super

Beiträge von Eistee

Dieser Crypt Script Mag den Buchstaben Z zu sehr

Dieser Crypt Script Mag den Buchstaben Z zu sehr

Dieser Crypt Script Mag den Buchstaben Z zu sehr

Dieser Crypt Script Mag den Buchstaben Z zu sehr

Dieser Crypt Script Mag den Buchstaben Z zu sehr

bestimmte stelle aus txt auslesen

bestimmte stelle aus txt auslesen

Autoit Und Special Zeichen Wo ist da das Problem ?

bestimmte stelle aus txt auslesen

bestimmte stelle aus txt auslesen

Autoit Und Special Zeichen Wo ist da das Problem ?

bestimmte stelle aus txt auslesen

bestimmte stelle aus txt auslesen

bestimmte stelle aus txt auslesen

bestimmte stelle aus txt auslesen

Ist Autoit .dat file fähig ?

Ist Autoit .dat file fähig ?

Ist Autoit .dat file fähig ?

bestimmte stelle aus txt auslesen

Lästigen send befehl umgehen