Beiträge von Jam00

Jam00

Also ich würde das dann nicht mit vielen TXT-Dateien machen sondern mit einer INI
Ich hab dir mal ein beispiel gemacht:

Script

[autoit]

$Ini = @ScriptDir & "\Dreck.ini"
$Sections = IniReadSectionNames ($Ini)
$Text = ""
For $1 = 1 To $Sections[0]
$Read = IniReadSection ($Ini,$Sections[$1])
$Text &= " " & $Read[Random (1,$Read[0][0])][1]
Next
MsgBox (0,"",$Text)

[/autoit]

Die INI mit dem Namen Dreck

Code

[Name]
1=Name1
2=Name2
3=Name3


[Verb]
1=geht
2=schläft


[adj]
1=gelangweilt
2=nass
3=krank


[Ort]
=am Bahnhof
=zuhause

Alles anzeigen

Jam00

Hast du dir schon die aktuellen hilfen geladen? Den link dazu gibt es links in dder "Info-Links"-Box
Guck dir mal FileRead bzw. InIread an, wenn ich ein bisschen zeit hab mach ich dir mal ein beispiel

EDIT:
Könntest du diese Textdateien mal Posten?

Jam00

Oh, verdammt, habs irgendwie vergessen, habs geändert

Jam00

Ja, gibt es und was zu groß ist wird nicht gesendet, wird nur das maximum gesendet und der rüggabewert ist die die länge wie fiel gesendet wurde, und das schneide ich ja mir StringTrimLeft ab und sende wieder, ich habe jetzt mal im empfangscript eine Progressbar reingebaut, da geht es:

Sender

[autoit]

Do
$IP = InputBox ("IP","Gib die IP ein")
If @error Then Exit
Until $IP <> ""
If Not Ping ($IP) Then Exit MsgBox (16,"Error","Diese IP ist nicht Online")
$File = FileOpenDialog ("Wähle die Datei aus",@DesktopDir,"Alle Dateien (*.*)")
$Name = StringTrimLeft ($File,StringInStr ($File,"\",0,-1))
$Read = FileRead ($File)
TCPStartup ()
$Con = TCPConnect ($IP,80)
IF $Con = -1 Then Exit MsgBox (16,"Error","Konnte keinen Server auf dieser IP finden")
$Size = FileGetSize($File)
TCPSend ($Con,"Datei|"& $Name & "|" & $Size)
Do
$recv = TCPRecv ($Con,2048)
If $recv = "0" Then Exit MsgBox (16,"Error","Der Partner hat die Datei nicht angenommen!")
Sleep (100)
Until $recv = "1"
$SizeOld = $Size
ProgressOn ("Dateiübertragung","Die Datei wird übertragen","0%",Default,Default,18)
While StringLen ($Read)
$x = TCPSend($con, $Read)
MsgBox (0,"","Bla")
If @error Then ExitLoop
$Size -= $x
ProgressSet ($Size / $SizeOld *100,$Size / $SizeOld *100 & "%")
Sleep (100)
$Read = StringTrimLeft($Read, $x)
Do
Sleep (10)
Until TCPRecv ($Con,2048) = "1"
WEnd
TCPSend ($Con,"ENDE")
ProgressOff ()
TCPShutdown ()
MsgBox (64,"Fertig","Die Datei wurde komplett übertragen")

[/autoit]

Empfänger

[autoit]

#include <INet.au3>
TCPStartup ()
$TCP = TCPListen (_GetIP(),80)
Do
$Con = TCPAccept ($TCP)
Until $Con <> -1
$Split = StringSplit (_Recv (),"|")
If $Split[1] = "Datei" Then
If MsgBox (1,"Dateisendung","Ihnen wird die Datei " & $Split[2] & " gesendet") = 1 Then
$File = FileSaveDialog ("Wählen sie den Speicherort und Namen",@DesktopDir,"(*." & StringTrimLeft ($Split[2],StringInStr ($Split[2],".",0,-1)) & ")",Default,$Split[2])
TCPSend ($Con,"1")
ProgressOn ("Dateiübertragung","Die Datei wird übertragen","0%",Default,Default,18)
$SizeAdd = 0
While 1
$recv = _Recv()
If $recv = "ENDE" Then
Exit MsgBox (64,"Feritg","Die Datei wurde komplett übertragen!")
Else
$SizeAdd += StringLen ($recv)
ProgressSet ($SizeAdd / $Split[3] *100,Round ($SizeAdd / $Split[3] *100,2) & "%")
FileWrite ($File,$recv)
$recv = ""
TCPSend ($Con,"1")
EndIf
Wend
Else
TCPSend ($Con,"0")
EndIf
EndIf
Func _Recv ()
Local $recvf
Do
$recvf = TCPRecv ($Con,1024)
Sleep (10)
Until $recvf <> ""
Return $recvf
EndFunc

[/autoit]

Jam00

Du könntest mir StringRight überprüfen ob das letzte zeichen eine ) ist

so z.B.

Spoiler anzeigen

[autoit]

If $StringRight ($Clip,1) = ")" Then
MsgBox(0,"","")
Endif

[/autoit]

Ungetestet, hab leider kein autoit hier

Jam00

Kann mir keiner helfen oder habt ihr keine lust?

Jam00

Ich habe ein Problem
und zwar habe ich 2 kleine scripts geschreiben, die für den datenaustausch von Datein sind, allerdings, geht die statusanzeige nicht und bei großen dateien merk er nicht das er schon fertig ist mit Dateisendung ist, obwohl es bei kleinen dateien geht
Veleicht könntet ihr euch das mal angucken

Sender

[autoit]

Do
$IP = InputBox ("IP","Gib die IP ein")
If @error Then Exit
Until $IP <> ""
If Not Ping ($IP) Then Exit MsgBox (16,"Error","Diese IP ist nicht Online")
$File = FileOpenDialog ("Wähle die Datei aus",@DesktopDir,"Alle Dateien (*.*)")
$Name = StringTrimLeft ($File,StringInStr ($File,"\",0,-1))
$Read = FileRead ($File)
TCPStartup ()
$Con = TCPConnect ($IP,80)
IF $Con = -1 Then Exit MsgBox (16,"Error","Konnte keinen Server auf dieser IP finden")
$Size = FileGetSize($File)
TCPSend ($Con,"Datei|"& $Name & "|" & $Size)
Do
$recv = TCPRecv ($Con,2048)
If $recv = "0" Then Exit MsgBox (16,"Error","Der Partner hat die Datei nicht angenommen!")
Sleep (100)
Until $recv = "1"
$SizeOld = $Size
ProgressOn ("Dateiübertragung","Die Datei wird übertragen","0%",Default,Default,18)
While StringLen ($Read)
$x = TCPSend($con, $Read)
MsgBox (0,"","Bla")
If @error Then ExitLoop
$Size -= $x
ProgressSet ($Size / $SizeOld *100,$Size / $SizeOld *100 & "%")
Sleep (100)
$Read = StringTrimLeft($Read, $x)
Do
Sleep (10)
Until TCPRecv ($Con,2048) = "1"
WEnd
TCPSend ($Con,"ENDE")
ProgressOff ()
TCPShutdown ()
MsgBox (64,"Fertig","Die Datei wurde komplett übertragen")

[/autoit]

Empfänger

[autoit]

#include <INet.au3>
TCPStartup ()
$TCP = TCPListen (_GetIP(),80)
Do
$Con = TCPAccept ($TCP)
Until $Con <> -1
$Split = StringSplit (_Recv (),"|")
If $Split[1] = "Datei" Then
If MsgBox (1,"Dateisendung","Ihnen wird die Datei " & $Split[2] & " gesendet") = 1 Then
$File = FileSaveDialog ("Wählen sie den Speicherort und Namen",@DesktopDir,"(*." & StringTrimLeft ($Split[2],StringInStr ($Split[2],".",0,-1)) & ")",Default,$Split[2])
TCPSend ($Con,"1")
While 1
$recv = _Recv()
If $recv = "ENDE" Then
Exit MsgBox (64,"Feritg","Die Datei wurde komplett übertragen!")
Else
FileWrite ($File,$recv)
$recv = ""
TCPSend ($Con,"1")
EndIf
Wend
Else
TCPSend ($Con,"0")
EndIf
EndIf
Func _Recv ()
Local $recvf
Do
$recvf = TCPRecv ($Con,1024)
Sleep (10)
Until $recvf <> ""
Return $recvf
EndFunc

[/autoit]

Jam00

Ja das habe ich auch schon hinbekommen, hast du dir post 5 angegeuckt?
Trozdem danke

Jam00

danke, aber irgendwie hilft mir das auch nicht so richtig

Jam00

also irgendwie habe ich immernoch probleme

Ich wollte ein Programm zur Dateiübertragung machen. Ich kenne nichts anderes in autoit als tcp oder UDP oder gibt es etwas besseres dafür?
Naja aufjedenfall wollte ich jetzt tcp nehmen und da ich ja nicht die komplette datei aufeinmal schicken kann muss ich sie ja splitten und zu binary umwandeln, oder?
Also habe ich das Probiert, es geht auch so schonmal, aber nur mit textdatein
und große datein kann ich nichtmal öffnen da kommt dann das memory zu klein ist, kann man mir da noch helfen?

Spoiler anzeigen

[autoit]

$Pfad = FileOpenDialog("Wähle die Datei aus", "Arbeitsplatz", "Alle Dateien (*.*)")
$Datei = StringToBinary(FileRead($Pfad))
$Split = StringSplit($Pfad, "\")
$Dateiendung = StringSplit(StringRight($Pfad, StringLen($Split[$Split[0]])), ".")
$Save = FileSaveDialog("Wähle den Speicherort und den Namen der Datei", StringLeft($Pfad, StringLen($Pfad) - StringLen($Split[$Split[0]])), "(*." & $Dateiendung[$Dateiendung[0]] & ")", Default, StringLeft ($Split[$Split[0]],StringLen ($Split[$Split[0]]) - StringLen ($Dateiendung[$Dateiendung[0]]) -1) & " (1)." & $Dateiendung[$Dateiendung[0]])
$Split2 = StringSplit ($Save,"\")
$Save2 = StringLeft ($Save,StringLen ($Save) - Stringlen ($Split2[$Split2[0]])) & StringLeft ($Split[$Split[0]],StringLen ($Split[$Split[0]]) - StringLen ($Dateiendung[$Dateiendung[0]]) -1) & "Temp." & $Dateiendung[$Dateiendung[0]]
$Lange = StringLen ($Datei)
$aText = StringRegExp($Datei, '.{1,1024}', 3)
For $1 = 0 To UBound ($aText) -1
FileWrite ($Save2,$aText[$1])
Next
FileWrite ($Save,BinaryToString (FileRead ($Save2)))
FileDelete ($Save2)

[/autoit]

Schonmal danke im voraus

Jam00

Das sieht klasse aus Oscar

EDIT:
Ich habe leider ein problem, es geht nicht so wie ich es wollte

[autoit]

#include <Array.au3>
$sText = FileRead (@ScriptDir & "\Test.txt")
$aText = StringRegExp($sText, '.{1,1024}', 3)
MsgBox (0,"",StringLen ($aText[0]))
_ArrayDisplay($aText)

[/autoit]

Jam00

Hallo, ich habe mal zwei frage und zwar

1. gibt es sowas wie StringSplit auch so, das er nicht nach zeichen sucht und danach splittet sondern nach einer bestimmten bytegröße z.b. ich habe etwas was 100 byte groß ist, soll er es mir in 10 bytegroße arrays splitten, so das ich am ende 10 aarays habe

2. gibt es eine optimale byteanzahl die man mit tcp versenden sollte? Oder gibt es ein maximumm?

Danke im Foraus

Jam00

das Thema hier ist jetzt zwar schon ein bischen älter, aber ich habe jetzt einen neuen pc und der hat keinen beeper, nun läufen die geräusche über meine Boxen, also muss das ja irgendwie hinbekommen, das es auch in pcs geht die auch einen beeper eingebaut haben, denn man sieht ja das es geht

Jam00

Spoiler anzeigen

[autoit]

$1 = TimerInit ()
$Gesamt = 0
$Old = 0
$TIme = 0
While 1
If WinActive ("Unbenannt - Editor") and Round (TimerDiff ($1) /1000) <> $Old Then
$Time = Round (TimerDiff ($1) /1000)
$Old = $Time
ToolTip ($Time + $Gesamt)
ElseIf Not WinActive ("Unbenannt - Editor") Then
$Gesamt += $Time
$Time = 0
ToolTip ($Gesamt)
WinWaitActive ("Unbenannt - Editor")
$1 = TimerInit()
EndIf
Sleep (10)
Wend

[/autoit]

Jam00

Da kann ich nur beiflichten, dieses Forum ist echt klasse

Jam00

naja, also das können schon zimlich viele umgehen, ich glaub sowiso, dass autoit dafür die falsche programiersprache ist, auch wenn man es noch sicherer machen könnte

Jam00

@Gummibär
Ja das hab ich mir schon gedacht, nur brauche ich das eig. jetzt und hab nicht zeit, komplet php oder html zu lernen, das werde ich auch noch machen, bestimmt, aber zurzeit hab ich dafür keine zeit

@tuttifrutti
Ja, so bringt mir das aber nichts, das kann ich auch aber trozdem danke an euch beide

Jam00

Tag zusammen,

weiß jemand wie ich es hinbekomme, das ich mir so eine Internetseite wie bei Rapidschare machen kann und die Dateien dann auf mein FTP-Laufwerk hochgeladen werden?
Also son durchsuchenbutton wo da so ein FileOpenDialog kommt und man die datei auswählen dann, die dann anschließen auf mein FTP geladen wird?

Jam00

Raupi
Klasse, hat wunderbar funktioniert und jetzt ist der Film sogar noch ein bischen kleiner

Danke an euch alle für eure Bemühungen
THX

Jam00

Es ist eine AVI-Datei und mit einem Festplattenreparatur-Tool repariert man doch eine ganze Festplatte und nicht eine Datei, die nichtmal auf einer Festplatte ist

BugFix
Okay, werde mich dann mal auf du suche machen, allerdings ist es bei VLC so das der Prozess des Reparierens immer bei 97-100 % ganz lange braucht und komplette CPU, vieleicht sag dir das ja was

Beiträge von Jam00

Dreckgenerator

Dreckgenerator

Script hängt sich auf beim Datei Senden auf

Script hängt sich auf beim Datei Senden auf

OpenOffice: Division durch Bruch ersetzen

Script hängt sich auf beim Datei Senden auf

Script hängt sich auf beim Datei Senden auf

StringSplit für Bytegöße und TCP-Frage

StringSplit für Bytegöße und TCP-Frage

StringSplit für Bytegöße und TCP-Frage

StringSplit für Bytegöße und TCP-Frage

StringSplit für Bytegöße und TCP-Frage

Beep

Programm Zeit

[Offtopic] Großes Lob !

Ordner Verstecken

FTP-Upload

FTP-Upload

VLC Problem

VLC Problem