Tratsch rund um Autoit / Autoit Talk | kleinere Fragen

[Achat]

Originally Posted by Kiinasu

Ok, ich bin gerade extrem am scheitern. ich möchte ein programm, das überprüft, ob eine .txt datei leer ist, wenn ja, soll sie aus einer anderen .txt datei die erste zeile nehmen und die dort reinschreiben. das ganze sieht bissher so aus:


er nimmt zwar schon aus einer text datei die inetwa so aussieht:

die erste zeile und fügt die in die andere datei ein(wenn diese leer ist), aber lässt dann eine leere zeile in beiden .txt dateien über. die möchte ich aber nicht. hab schon einiges probiert, nichts hat so funktioniert, wie ich es wollte. jemand vll ne lösung, die mir helfen kann?

Einzeiler ForTheWin!

If Not StringLen(FileRead(@ScriptDir & '\1.txt.')) Then FileWrite(@ScriptDir & '\1.txt.', FileReadLine(@ScriptDir & '\2.txt', 1))

MfG

[Kiinasu]

damit löscht er leider nicht die eben kopierte zeile auf 2.txt.

[Achat]

If Not StringLen(FileRead(@ScriptDir & '\1.txt.')) Then
	FileWrite(@ScriptDir & '\1.txt.', FileReadLine(@ScriptDir & '\2.txt', 1))
	FileWrite(@ScriptDir & '\2_.txt', StringTrimLeft(FileRead(@ScriptDir & '\2.txt'), StringLen(FileReadLine(@ScriptDir & '\2.txt', 1)) + 2))
	FileMove(@ScriptDir & '\2_.txt', @ScriptDir & '\2.txt', 1)
EndIf

Jetzt aber

MfG

[butter123]

ich brauche einen unix timestamp. hab weder eine funktion noch eine dll gefunden...

[lolkop]

Originally Posted by butter123

ich brauche einen unix timestamp. hab weder eine funktion noch eine dll gefunden...

in der autoit hilfe gibt es zur _DateDiff funktion einen schönen beispielcode:

#include <Date.au3>

; Calculated the number of seconds since EPOCH (1970/01/01 00:00:00)
Local $iDateCalc = _DateDiff('s', "1970/01/01 00:00:00", _NowCalc())
MsgBox(4096, "", "Number of seconds since EPOCH: " & $iDateCalc)

[playerXD97]

Ich schon wieder ^^

HotKeySet("{F4}", "temp")

$Form1_ID = GUICreate("User-ID", 216, 152, -1, -1, BitOR($WS_SYSMENU,$WS_POPUP))
GUISetIcon("C:\Windows\System32\shell32.dll", -78)
GUISetBkColor(0x74A402)
Global $ID_In = GUICtrlCreateInput("", 47, 55, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
GUICtrlSetLimit(-1, 8)
GUICtrlSetFont(-1, 8, 400, 0, "Gill Sans Ultra Bold Condensed")
$Label1 = GUICtrlCreateLabel("Bitte trage hier deine User-ID ein:", 9, 23, 197, 23, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "Gill Sans Ultra Bold Condensed")
$Button_OK = GUICtrlCreateButton("OK", 24, 103, 75, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Gill Sans Ultra Bold Condensed")
$Button_Abbrechen = GUICtrlCreateButton("Abbrechen", 112, 103, 75, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Gill Sans Ultra Bold Condensed")
GUISetState(@SW_SHOW)

While 1
   WinSetTrans("Fenster1", "", -1)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button_OK
			If GuiCtrlRead($ID_In) < 10000 Then
				MsgBox(0,"Fehler","Bitte gültige User-ID eingeben")
			 ElseIf GUICtrlRead($ID_In) > 10000 Then
				IniWrite("temp.ini", "ID", "ID",GUICtrlRead($ID_In))
				GUIDelete ()
				WinSetTrans("Fenster1","", 0)
				ExitLoop				
				
			EndIf
		Case $Button_Abbrechen
			Exit
	EndSwitch
WEnd


____Hier kommt das nächste GUI und noch eine While die durch läuft. Hab ich jetzt mal weggelassen____
Func temp()
   Global $var = IniRead("temp.ini", "ID", "ID=", "")
   MsgBox(4096, "Ergebnis", $var)
   
   EndFunc

$var ist leer -.-
warum geht das nicht? Er ließt eine Variable außerhalb des Func nicht aus..
Bitte keine fragen zum Sinn^^

[butter123]

$var = IniRead("temp.ini", "ID", "ID", "Value not found")
probier das mal. und arbeite lieber mit return anstatt einer globalen variable.

[Croco™]

Global $var = IniRead("temp.ini", "ID", "ID=", "")

Das "=" bei "ID=" wird automatisch von der Ini erstellt und dient nur der trennung zwischen dem Key (ID) und dem Wert (Alles hinter dem "=").
Du suchst also mit "ID=" nach einem Key der so aussieht: "ID==".
Lass das "=" einfach weg.

[Achat]

Für einen eigenen Thread in der AutoIt Sec ist es mir zu klein :|, deshalb poste ich es nochmal hier, Sourcecode ist enthalten.

MfG

MfG

[Croco™]

Hattest du mal wieder langeweile ?
Nette Idee aber ich bleibe lieber bei der alt bekannten Eieruhr

[Achat]

Für alle, die die WinHttp.au3 benutzen:

[noparse]
Func _HtmlUnicodeDecodeAll($sString)
	Local Static $sHTML = BinaryToString(InetRead('http://de.selfhtml.org/html/referenz/zeichen.htm'))
	Local $aRegExp = StringRegExp($sHTML, '<td class="doctop"><span class="unicode">&.+;</span></td>\r\n' & _
			'<td class="tabxpl">.+</td>\r\n' & _
			'<td class="code"><code>&(\w+);</code></td>\r\n' & _
			'<td class="code"><code>&#(\d+);</code></td>', 3)
	If UBound($aRegExp) < 2 Or Mod(UBound($aRegExp), 2) <> 0 Then Return SetError(1, 0, 0)
	For $i = 0 To UBound($aRegExp) - 2 Step 2
		$sString = StringReplace($sString, '&' & $aRegExp[$i] & ';', ChrW($aRegExp[$i + 1]), 0, 1)
		$sString = StringReplace($sString, '&#' & $aRegExp[$i + 1] & ';', ChrW($aRegExp[$i + 1]), 0, 1)
	Next
	Return $sString
EndFunc   ;==>_HtmlUnicodeDecodeAll
[/noparse]

Ersetzt alle Sonderzeichen-Tags wie z.B. ÄÖaéèÈ durch das eigentliche Zeichen

Mehr dazu hier:

Download:

MfG

[Croco™]

Coole Idee dass mit der Zeichentabelle von SelfHtml zu verknüpfen

[Achat]

Originally Posted by Croco™

Coole Idee dass mit der Zeichentabelle von SelfHtml zu verknüpfen

Danke.
Alternativ dazu hätte ich einen 486 Elemente großen Array im Script speichern können.

Durch das Static muss die SelfHtml Seite nur beim ersten Funktionsaufruf geladen werden, zudem ist die Funktion damit auch immer aktuell.

MfG

[Requi]

Func decode($string)
	$decoded = ""
	$temp = StringToBinary($string,4)
	$temp = StringTrimLeft($temp,2)
	for $i = 1 to StringLen($temp) Step 2
		$decoded = $decoded & "%" & StringMid($temp,$i,2)
	Next
	Return $decoded
EndFunc

So hat es TheAldi gemacht
Funzt eigentlich auch

[Achat]

Originally Posted by »AppleJack™

Func decode($string)
	$decoded = ""
	$temp = StringToBinary($string,4)
	$temp = StringTrimLeft($temp,2)
	for $i = 1 to StringLen($temp) Step 2
		$decoded = $decoded & "%" & StringMid($temp,$i,2)
	Next
	Return $decoded
EndFunc

So hat es TheAldi gemacht
Funzt eigentlich auch

Und wie willst du damit
z.B.

 
*
¡
¢
£
¤
¥

umbenennen?

MfG