Beiträge von Lenny

Lenny

Hi.

Ich denke es wäre eigenltich ganz einfach durch logisches Denken zu lösen, aber ich bekomme die Progressbar zu Inetget einfach nicht hin: Mir fällt keine Logische RechenOperation ein.

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Progress", 615, 37, 284, 540, BitOR($WS_EX_TOPMOST, $WS_MINIMIZEBOX, $WS_POPUP, $WS_GROUP, $WS_BORDER))
$Label1 = GUICtrlCreateLabel("", 0, 0, 615, 37, -1, $GUI_WS_EX_PARENTDRAG)
$Progress1 = GUICtrlCreateProgress(0, 0, 615, 37)
GUISetState(@SW_SHOW)

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

$iFileSize = InetGetSize("http://ulyf.bplaced.de/CrysisVid/crysis.avi") ;Datei größe der zu downloadenen Datei.

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

InetGet("http://ulyf.bplaced.de/CrysisVid/crysis.avi", @ScriptDir & "\haha.rar", 0, 1) ;Downloade die Datei im Hintergrund.

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

While 1

$hFileSize = FileGetSize(@ScriptDir & "\haha.rar") ;Wie viel wurde schon geladen.

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

$iPercent = Int(RechenOperation) ;Rechen Operation ? O.O

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

GUICtrlSetData($Progress1, $iPercent) ;Progressbar einstellen

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

If $hFileSize = $iFileSize Then ExitLoop

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

WEnd

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

Lg,

Lenny

Lenny

;D

Und woher weiß das Script wenn ich die Datei 3 Tage später wieder entschlüsseln will was unter den Buchstaben ist ?

Lg,

Lenny

P.S:

Ich test das jetzt mal ^^^

Wobei ich

[autoit]

Asc Mod Chr BitXOR Dec Abs

[/autoit]

Schon nicht kenne Asc Kann ich mir denken Mod verstehen ich nicht Chr ? BitXOR verstehe ich das Prinzip nicht Dec Kann ich mir denken und Abs habe ich verstanden

Also auf den ersten Blick

Aber ich werde mich da nohcmal reinfuchsen ;D

Lg,

Lenny

Lenny

Hi.

Vielen Dank!

Verstehen tu ich davon nicht so viel aber das kommt vllt nohc

Habe ich das richtig verstanden das für jedes D ein P eingestzt wird und für jedes I ein A ?

Lg,

Lenny

Lenny

Hi!

Was ist XOR?

Nein es geht mir eingentlich nicht hauptsächlich um die SIcherheit; mehr darum etwas zu schaffen

Also ein Algorythmus wie ein Keygen der Zb die erste Zahl generiert und die Zweite Zahl 1 + 65545 sein muss ?

LG,

Lenny

Lenny

Ich habe gedacht, OHNE _stringencypt

Also sagen wir so

$zeile = Random(0,$zeilen der datei)

_FileWriteToLine($file,$zeile,"ADFL§EWRFLASKDFJEWF")

Später beim Entschlüsseln sucht er nach "ADFL§EWRFLASKDFJEWF" und entfernen.

Lg,

Lenny

Lenny

Benutz Alcohol.

Alcohol 120 % 4 Ever

Lenny

Wow - Vielen Dank euch beiden.

Ich bevorzuge Oscars Lösung da sie meiner Variant näher kommt^^

Das mit der Dateigröße ist mir auch schon aufgefallen. Wollte 5 Mb Bmp machen -> Ewig!

Gibt es da villeicht eine schnellere Methode ? Vllt könnte man ja abundzu mal einen String zwischen die Zeichen hauen und beim Entschlüsseln alle diese strings wieder wegnehemn also zb ADHWKR$§%450234jasf$5lkdf irgendwo zwischen.

Ist nicht grade sicher; aber sollte doch schneller gehen oder ?

Lg,

Lenny

Lenny

Hi!

Mit InetgetSource und StringInStr solltest du dir da eine Funktion bauen können.

Lg,

Lenny

Lenny

Hi!

Ich denke es gibt wenig veränderungen zum ersten Post aber ich poste hier noch mal den source:

Spoiler anzeigen

[autoit]

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=MyIcon1.ico
#AutoIt3Wrapper_Res_Comment=-
#AutoIt3Wrapper_Res_Description=Txt File Crypter
#AutoIt3Wrapper_Res_Fileversion=0.9.0.0
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
FileInstall("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Lenny's.jpg", @TempDir & "\lennys.jpg")

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

$Form1 = GUICreate("Lenny's TextFile Crypter", 632, 345, 194, 132, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@TempDir & "\lennys.jpg", 0, 0, 632, 150, BitOR($SS_NOTIFY, $SS_SUNKEN, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $GUI_WS_EX_PARENTDRAG)
$Button1 = GUICtrlCreateButton("Datei zum Verschlüsseln wählen", 40, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Datei zum Entschlüsseln wählen", 344, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("Pfad", 40, 200, 545, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Slider1 = GUICtrlCreateSlider(344, 240, 238, 45, BitOR($TBS_AUTOTICKS, $TBS_BOTH))
GUICtrlSetLimit(-1, 3, 1)
$Label1 = GUICtrlCreateLabel("Wählen sie den Grad der Verschlüsselung:", 40, 248, 298, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Progress1 = GUICtrlCreateProgress(40, 304, 294, 17)
$Button3 = GUICtrlCreateButton("Close me.", 352, 304, 227, 17, 0)
GUISetState(@SW_SHOW)

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

TrayTip("Info", "Wählen sie den Grad der Verschlüsselung.", 5, 1)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ToolTip("")
_verschluesseln()
Case $Button2
ToolTip("")
_entschluesseln()
Case $Button3
FileDelete(@TempDir & "\lennys.jpg")
Exit
Case $Slider1
$position = GUICtrlRead($Slider1)
If $position = 1 Then $txt = "Leicht"
If $position = 2 Then $txt = "Mittel"
If $position = 3 Then $txt = "Schwer"
ToolTip($txt)
EndSwitch
WEnd

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

Func _verschluesseln()
$postion = 0

$position = GUICtrlRead($Slider1)

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

$Ort = FileOpenDialog("Datei zum Verschlüsseln auswählen", "", "TextFiles (*.txt)", 1)

If @error Then Exit

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

GUICtrlSetData($Input1, $Ort)

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

$Datei = FileOpen($Ort, 0)
If @error Then MsgBox(0,"",@error)
$FSize = FileGetSize($Ort)

_FileCreate($Ort & ".lfc")

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

For $s = 1 To 1000000000000 Step 1
$line1 = FileReadLine($Datei, $s)
If @error = -1 Then

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

$linecounter = $s
ExitLoop
EndIf
Next

$setting = 100 / $linecounter

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

For $i = 1 To $linecounter

$line = FileReadLine($Datei, $i)

$postion += $setting

GUICtrlSetData($Progress1, $postion)
If @error = -1 Then $i = 500000

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

$Text = _StringEncrypt(1, $line, "test", $position)

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

$newop = FileOpen($Ort & ".lfc", 1)

FileWrite($newop, $Text & @CRLF)

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

FileClose($newop)
Next
FileClose($Datei)

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

FileDelete($Ort)

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

GUICtrlSetData($Progress1, 0)

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

EndFunc ;==>_verschluesseln

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

Func _entschluesseln()

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

$postion = 0

$position = GUICtrlRead($Slider1)

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

$Ort = FileOpenDialog("Lenny Crypter Files", "", "Alle Dateien (*.lfc)", 1)

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

GUICtrlSetData($Input1, $Ort)

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

$Datei = FileOpen($Ort, 0)

$string1 = StringTrimRight($Ort, 4)

_FileCreate($string1)

For $s = 1 To 1000000000000 Step 1
$line2 = FileReadLine($Datei, $s)
If @error = -1 Then

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

$linecounter1 = $s
ExitLoop
EndIf
Next

$setting = 100 / $linecounter1

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

$newop = FileOpen($string1, 1)

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

For $i = 1 To $linecounter1

$postion += $setting

GUICtrlSetData($Progress1, $postion)

$line = FileReadLine($Datei, $i)

$Text = _StringEncrypt(0, $line, "test", $position)

FileWrite($newop, $Text)

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

Next
FileClose($newop)
FileClose($Datei)
FileDelete($Ort)

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

GUICtrlSetData($Progress1, 0)

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

EndFunc ;==>_entschluesseln

[/autoit]

Lg,

Lenny

Lenny

Hi.

Also ich bin ja nun nicht so gut in AutoIt. Aber du könntest das Script ja einfach so umschreiben:

[autoit]

Global $title, $title_old

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

While 1
$title = WinGetTitle("[active]")
If $title <> $title_old Then
_write($title)
$title_old = $title
EndIf
Sleep(100)
WEnd

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

Func _write($what2log)
$file = FileOpen("bla.txt", 1)
FileWriteLine($file, @CRLF&@HOUR&":"&@MIN&":"&@SEC&": "& $what2log)
Fileclose($file)
EndFunc

[/autoit]

Es gibt aber bestimmt eine Bessere Lösung.

Lg,

Lenny

P.s. Ich denke wenn du den Prozess abschießt wird die Datei nicht geschlossen (Fileclose(""))

Lenny

Hi.

Ich denke ich bin meinem Problem schon einwenig näher gekommen!

Bei dem Text BILD WIRD NICHT ANGEZEIGT http://img3.imagebanana.com/img/caz4ihft/Text.JPG

Ließt er nur ÿØÿà; Mehr konnt ich auch nicht kopieren. Wenn die ganze obere zeile kopiere und dann einfüge kommt das bei raus: ÿØÿà

Vllt muss ich die Datei im Raw Reading mode lesen; HAbe ich schon probiert, denn macht er garnichts mehr.

Oder was könnte das problem sein ?

Vielen Dank,

Lg,

Lenny

Lenny

Guten Tag Allerseits!

Wie ihr schon im ThreadTitle gelesen habt, arbeite ich grade an einem Datei Verschlüsselungs Script.

Mit Txt Dateien geht das ja schon wunderbar; mit allen anderen allerdings nicht

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>

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

$Form1 = GUICreate("Lenny's FileCrypter", 632, 345, 194, 132, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Lenny's.jpg", 0, 0, 632, 150, BitOR($SS_NOTIFY, $SS_SUNKEN, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), $GUI_WS_EX_PARENTDRAG)
$Button1 = GUICtrlCreateButton("Datei zum Verschlüsseln wählen", 40, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Datei zum Entschlüsseln wählen", 344, 160, 243, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("Pfad", 40, 200, 545, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Slider1 = GUICtrlCreateSlider(344, 240, 238, 45, BitOR($TBS_AUTOTICKS, $TBS_BOTH))
GUICtrlSetLimit(-1, 3, 1)
$Label1 = GUICtrlCreateLabel("Wählen sie den Grad der Verschlüsselung:", 40, 248, 298, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Progress1 = GUICtrlCreateProgress(40, 304, 294, 17)
$Button3 = GUICtrlCreateButton("Close me.", 352, 304, 227, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

TrayTip("Info", "Wählen sie den Grad der Verschlüsselung.", 5, 1)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ToolTip("")
_verschluesseln()
Case $Button2
ToolTip("")
_entschluesseln()
Case $Button3
Exit
Case $Slider1
$position = GUICtrlRead($Slider1)
If $position = 1 Then $txt = "Leicht"
If $position = 2 Then $txt = "Mittel"
If $position = 3 Then $txt = "Schwer"
ToolTip($txt)
EndSwitch
WEnd

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

Func _verschluesseln()
$postion = 0

$position = GUICtrlRead($Slider1)

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

$Ort = FileOpenDialog("Datei zum Verschlüsseln auswählen", "", "Alle Dateien (*.*)", 1)

If @error Then Exit

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

GUICtrlSetData($Input1, $Ort)

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

$Datei = FileOpen($Ort, 16)

$FSize = FileGetSize($Ort)

_FileCreate($Ort & ".lfc")

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

For $s = 1 To 1000000000000 Step 1
$line1 = FileReadLine($Datei, $s)
If @error = -1 Then

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

$linecounter = $s
ExitLoop
EndIf
Next

$setting = 100 / $linecounter

For $i = 1 To $linecounter

$line = FileReadLine($Datei, $i)

$postion += $setting

GUICtrlSetData($Progress1, $postion)
If @error = -1 Then $i = 500000

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

$Text = _StringEncrypt(1, $line, "test", $position)

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

$newop = FileOpen($Ort & ".lfc", 1)

FileWrite($newop, $Text & @CRLF)

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

FileClose($newop)
Next
FileClose($Datei)

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

;~ FileDelete($Ort)

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

GUICtrlSetData($Progress1, 0)
EndFunc ;==>_verschluesseln

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

Func _entschluesseln()

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

$postion = 0

$position = GUICtrlRead($Slider1)

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

$Ort = FileOpenDialog("Wählen sie die Datei zum DeCrypten aus", "", "Lenny File Crypter (*.lfc)", 1)

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

GUICtrlSetData($Input1, $Ort)

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

$Datei = FileOpen($Ort, 4)

For $s = 1 To 1000000000000 Step 1
$line1 = FileReadLine($Datei, $s)
If @error = -1 Then

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

$linecounter = $s
ExitLoop
EndIf
Next

$setting = 100 / $linecounter

;~ MsgBox(0, "", $linecounter)

$string1 = StringTrimRight($Ort, 4)

_FileCreate($string1)

For $i = 1 To $linecounter

$postion += $setting

GUICtrlSetData($Progress1, $postion)

$line = FileReadLine($Datei, $i)

;~ MsgBox(0, "", $line)

$Text = _StringEncrypt(0, $line, "test", $position)

;~ MsgBox(0, "", $Text)

$newop = FileOpen($string1, 1 +

FileWrite($newop, $Text)

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

FileClose($newop)
Next
FileClose($Datei)
FileDelete($Ort)

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

GUICtrlSetData($Progress1, 0)

EndFunc ;==>_entschluesseln

[/autoit]

1. Es ist kompliziert
2. Es dauert lange
3. Das ist mir aber relativ egal am wichtigsten ist mir Punkt 4
4. Wenn ich eine Datei gecryptet habe, und sie wieder entcrypten will, ist die nur nohc halb so groß wie vorher.

Erkennt StringEncrypt keine Leerzielen ? Oder wodran könnte es liegen ?

Vielen Dank im Vorraus,

LG,

Lenny

Lenny

Hallo Oscar.

Genau das finde ich auch ... Ich habe ca 2000 Mp3's auf dem Pc; 1000 davon mit Radio Tracker aufgenommen.

Die meisten von diesen 1000 kenn ich nicht, aber durch dein Quiz lern ich sie denn Kennen !

Echt Super geworden ... Habe ich vorhin schon eine Halbe Stunde lang gespielt ....

AutoIt Spiel Note: 10/10 !

LG

Lenny

Lenny

Wow!

Gefällt mir!^^ Funktioniert Super und verständlilch und kurz! Liegt es jetzt dadran das die Datei im Raw Read mode geöffnet wurde ?

Es geht aufjeden Fall blitz schnell

Vielen Dank euch beiden,Oscar und Funkey!

Lg,

Lenny

Edit:

Ich habe jetzt auch noch mal das Gegenstück gebastelt:

Spoiler anzeigen

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("FileSplitter", 192, 146, 193, 125)
$Button1 = GUICtrlCreateButton("Split File", 8, 120, 83, 17, 0)
$Button2 = GUICtrlCreateButton("EnSplit File", 96, 120, 83, 17, 0)
$Pic1 = GUICtrlCreatePic("", 8, 8, 172, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
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
_splitfile()
Case $Button2
_ensplitfile()
EndSwitch
WEnd

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

Func _splitfile()
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $i = 1

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

$setting = 0

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Progress", 615, 37, 284, 540, BitOR($WS_EX_TOPMOST, $WS_MINIMIZEBOX, $WS_POPUP, $WS_GROUP, $WS_BORDER))
$Label1 = GUICtrlCreateLabel("", 0, 0, 615, 37, -1, $GUI_WS_EX_PARENTDRAG)
$Progress1 = GUICtrlCreateProgress(0, 0, 615, 37)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

$Ort = FileOpenDialog("Datei zum Splitten aussuchen", "", "Alle Dateien (*.*)", 1)

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

$Datei = FileOpen($Ort, 4)

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

$size = FileGetSize($Ort)

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

ClipPut($size)

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

GUISetState(@SW_SHOW)

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

While 1
$String = FileRead($Datei, 1048576)

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

If @error = -1 Then ExitLoop

$Neue_Datei = FileOpen("Part" & $i & ".txt", 18)

FileWrite($Neue_Datei, $String)

$status = $size / 1024 / 1000

$real = 100 / $status

$setting += $real

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

GUICtrlSetData($Progress1, $setting)

FileClose($Neue_Datei)

$i += 1

WEnd

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

GUISetState(@SW_HIDE)

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

EndFunc ;==>_splitfile

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

Func _ensplitfile()
$saveit = FileSaveDialog("Save your File", @WorkingDir, "All Files (*.*)")

$search = FileFindFirstFile("*.txt")

$i = 0

$complete = ""

If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

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

While 1

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

$file = FileFindNextFile($search)

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

If @error Then ExitLoop

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

$fileo = FileOpen($file, 16)

$readed = FileRead($fileo)

FileClose($fileo)

$re = FileOpen($saveit, 1 +

FileWrite($re, $readed)

FileClose($re)

WEnd

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

FileClose($search)

EndFunc ;==>_ensplitfile

[/autoit]

Bitte fragt mich nicht nach dem Sinn.... So 100 % weiß ich es auch noch nicht ... Aber für Große "Urlaub Videos" zum Hochladen schon mal ganz okay

Achja ... Und es wäre Super wenn ihr mir das Gegenteil von FileSplitter sagen könntet ... EnSplitter ist es ja bestimmt nicht

Lg,

Lenny

Lenny

... Hm ... Also es handelt sich um eine TXT Datei dessen inhalt aus einer Exe Stand

Aber ich dachte das wäre egal ...

LG Lenny

Lenny

Hi!

Ja es funktioniert Super!

Kann man es auch irgendwie hinbekommen das er leerzeilen mit schreibt? Ihr / du braucht nicht nohc mal ein Script sagen, sondern eher:

Erkennt Fileread Leerzeilen ?

Wenn Ja: Wie kann man abfragen ob er eine gelesen hat?

Das mit den Kommentierungen fand ich übrigens sehr Hilfreich!

Vielen Dank

Und Vielen Dank auch im Vorraus

Liebe Größe,

Lenny

Edit1: Mir ist da noch etwas aufgefallen:

Wenn ich die Txt mit einem Editor öffne ist die erste Zeile:

0&²uŽfÏ¦Ù

Wenn ich die 1.txt öffne ist die erste Zeile:

0&²uŽfÏ¦Ù¬ÔÖd"8FÈONÌ ¶A^¸}ÖbàÒ1Ôî”Æ«T‘`räÏ™Ô`P¥I ª*

Auch Komisch^^

Liebe Grüße, Lenny

Lenny

Hi!

Das die Zeile komplett bleibt ist mir eindeutig wichtiger

Jaa ich weiß das sowas auch mit WinZip geht, aber mit AutoIt muss das ja auch gehen =)

LG

Lenny

Lenny

Hi!

Nein - Leider geht es nicht. Aber ich kann das Scipt auch noch nicht ganz nachvoll ziehen:

[autoit]

Global $hFile, $iCount = 1, $sBuffer = ''

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

$hFile = FileOpen(@ScriptDir & 'file.txt', 0) ;Zulesende Datei öffnen
While True
$sReadLine = FileReadLine($hFile) ;Zeile 1 Wird gelesen
If @error = -1 Then ; Wenn ein Fehler -1 auftritt
FileWrite($iCount & '.txt', $sBuffer);Schreibe in die $count (1).txt , $sBuffer; $sBuffer =& die gelsene Zeile
ExitLoop; Die bedingung @error = -1 wird nicht erfüllt
EndIf
$sBuffer &= $sReadLine ; $sBuffer &= (? Wofür steht &=)Die gelsene Zeile
If StringLen($sBuffer) >= 1048576 Then ;Wenn die $sBuffer + die Zeile größer als 1048576 Zeichen (Bytes) sind denn
FileWrite($iCount & '.txt', $sBuffer) ;Schreibe in die Counter (1) $sBuffer
$iCount += 1 ; Counte = +1 für 2.txt
$sBuffer = ''
EndIf
WEnd
FileClose($hFile)

[/autoit]

Ich verstehe den Ablauf nicht ganz ...

Abbber .... Kann es dadran liegen das er die 1.txt nicht seperat öffnet ?

Vielen Dank im Vorraus

Liebe Grüße

Lenny

P.s. Es wird keine Neue 1.txt erstellt und in 1.txt schreibt er auch nicht

Lenny

Guten Abend alle Zusammen.

Ich habe momentan keine Idee wie folgende Idee verwirklichen sollte:

Ich lese eine Txt Datei ein; ca. 10 MB Groß!

Das script sollte die Datei einlesen; das habe ich natürlich ganz einfach mit FileOpen("file.txt,0") und FileReadLine("file.txt") (Grund Unten) gelöst.

Jetzt möchte ich den Inhalt in 1 MB große Text Dateien Splitten.

Also habe ich folgendes gemacht:

[autoit]

For $i = 1 To 1000 Step 1

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

$open = FileOpen("textfile.txt", 0)

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

$readedline = FileReadLine($open, $i) ;Zeile für Zeile, damit er später auch prüfen kann wie groß die Datei ist; Bei FileRead würde er ja den Kompletten Text schreiben.

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

If $i = 1 Then
FileWrite($open, $readedline)
Else
FileWrite($open, @CRLF & $readedline)
EndIf

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

FileClose($open) ;Weil sonst ja noch nichts in die Datei geschrieben wird !? Datei größe würde denke ich bei 0 bleiben.

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

If FileGetSize("1.txt") > "1048576" Then ; 1MB
$i = 1000
EndIf
Next
;???? Hier soll er denn ja eine neue datei mit dem Namen 2.txt erstellen - Kein Problem
;Allerdings weiß ich nicht wie ich jetzt den Text WEITER schreibe, d.h. den Inhalt aus 1.txt weglassen

[/autoit]

Die weiteren Fragen hab ich ja direkt ins Script geschrieben.

Es wäre Super wenn ihr mir Helfen könntet!

Vielen Vielen Dank im Vorraus,

LG,

Lenny

Lenny

Genauso heißt es =)

Beiträge von Lenny

Inetget -> Progressbar.

Datei Verschlüsselung

Datei Verschlüsselung

Datei Verschlüsselung

Datei Verschlüsselung

Schadhafte DLL abändern, die Malwareprogramme nachlädt - geht das?

Datei Verschlüsselung

Probleme mit meinem SMS-Tool

Datei Verschlüsselung

FileWrite() schreibt nicht ..

Datei Verschlüsselung

Datei Verschlüsselung

Musik-Quiz

Text einlesen & und verschieden TXT files Splitten.

Text einlesen & und verschieden TXT files Splitten.

Text einlesen & und verschieden TXT files Splitten.

Text einlesen & und verschieden TXT files Splitten.

Text einlesen & und verschieden TXT files Splitten.

Text einlesen & und verschieden TXT files Splitten.

Lenny: Besseres für die Zukunft