Beiträge von UEZ

Hier noch ein RegEx Möglichkeit:

$sTxt = _
"Titel:" & @CRLF & _
"Titel des Buches" & @CRLF & _
"Autor:" & @CRLF & _
"Autor 1 des Buches" & @CRLF & _
"Autor 2 des Buches" & @CRLF & _
"Autor 3 des Buches" & @CRLF & _
"Abstract:" & @CRLF & _
"Abstract des Buches"

$sTitel = StringRegExpReplace($sTxt, "(?si)(.*)Titel:\s*(.*)Autor:(.*)", "$2")
$sAutor = StringRegExpReplace($sTxt, "(?si)(.*)Autor:\s*(.*)\s+Abstract:(.*)", "$2")
MsgBox(0, "Test", "Titel: " & $sTitel & @CRLF & _
"Autor(en): " & @CRLF & $sAutor)

Gruß,
UEZ

Hier was von mir:

Oder so was:

Gruß,
UEZ

Abgesehen davon, warum willst du diese Funktion verwenden?

Wenn du _GDIPlus_GraphicsDrawRect($hBUF, 300, 100, 200, 200, $hPEN) ausführst, werden sogar waag. / senkr. Linien "gesmootht".

Liegt vielleicht daran, dass die Pixel doch irgendwie anders angeordnet werden, sodass das smoothing andere Resultate liefert.

Gruß,
UEZ

Schaue mal hier http://www.autoitscript.com/forum/topic/97…sdrawroundrect/ oder hier http://www.autoitscript.com/forum/topic/14…nd-border-label rein.

Gruß,
UEZ

Wenn du wirklich am Ende des Textes ein Punkt stehen hast, kannst du ihn einfach löschen:

#include<Array.au3>

$Text = ("Das ist Text 1. Das ist Text2. Das ist Text 3.")
If StringRight($Text, 1) = "." Then $Text = StringMid($Text, 1, StringLen($Text) - 1)
$arraytxt = StringSplit($Text, '.',2)
_ArrayDisplay($arraytxt)
Exit

Ansonsten wird es ein bisschen komplizierter.

Gruß,
UEZ

Weil nach jedem Punkt getrennt wird, somit auch am letzten Punkt.

Gruß,
UEZ

Sehr schöne UDF!

Werde ich bestimmt öfters benutzen!

Läuft sauber auf Win7 x64 inkl. Aero.

Danke,
UEZ

Zitat von Raupi

UEZ, deine Lösung wird aber jedes Wort am Anfang groß schreiben und kann nicht mi meheren Buchstaben in <> umgehen

Ich habe bewusst nur die Variante genommen, die zu seinem String passt. Ich wollte nicht zu jede Möglichkeit in betracht ziehen, da es den Rahmen sprengen würde.

Wenn der Text String so aussieht, dann kommt eben so eine Lösung raus.

Gruß,
UEZ

Du hast nicht gesagt, dass du die spitzen Klammen nicht haben willst.

#include <String.au3>

$sText = "<h>allo <b>asti2022"
$sNew = _StringProper(StringRegExpReplace($sText, "<(.)>", "$1"))

MsgBox(0, "Test", $sNew)

Gruß,
UEZ

Probiere es mal damit:

#include <Array.au3>
$sText = "<h>allo <b>asti2022"

MsgBox(0, "Test", Convert($sText))

Func Convert($sText)
Local $aText = StringSplit($sText, "", 2)
Local $ub = UBound($aText) - 1
Local $i
For $i = 0 To $ub
If $aText[$i] = "<" And $i < $ub Then $aText[$i + 1] = StringUpper($aText[$i + 1])
Next
Return _ArrayToString($aText, "")
EndFunc

Gruß,
UEZ

Und wie sieht es aus, wenn zwei Bilder unterschiedliche Formate haben, wie z.B. PNG und BMP, aber der Inhalt gleich ist?

Gruß,
UEZ

Schaue mal hier rein: TextEffects-UDF - Mach mehr aus langweiligem Text (inkl. About-Box) du könntest das Skript dahin gehend anpassen, dass der WinTitel entsprechend geändert wird.

Oder schaue in den GDI+ Visualization: Analog Meter Code mal rein.

Gruß,
UEZ

Wie hast du die temp.txt erstellt?

$string = "abc"
$sFile = @ScriptDir & "\temp.txt"
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, String(StringToBinary($string)))
FileClose($hFile)

$file=FileRead($sFile)
msgbox(0,"",binarytostring($file))

Gruß,
UEZ

Also, wenn ich dies aufrufe, dann kommt das erwünschte Ergebnis:

$file="0x61626320"
msgbox(0,"",binarytostring($file))

und mit

$file=fileread("temp.txt")
msgbox(0,"",binarytostring($file))

nicht. Woran liegt das wohl?

Gruß,
UEZ

Sehr wahrscheinlich liegt es am Pfad zur temp.txt Datei.

Gruß,
UEZ

Teste es mal damit:

#include <Array.au3>
#include <Date.au3>
$sTime = "Fri Jul 6 09:28:26 2012"

MsgBox(0, "Test", DateDiff_Special($sTime) & " Sekunden differenz!")

Func DateDiff_Special($sTime)
Local $aMonth[12] = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dez"]
Local $aTime = StringSplit($sTime, " ", 2)
If @error Or UBound($aTime) <> 5 Then Return SetError(1, 0, -1)
Local $sYear = $aTime[4]
Local $sMonth = StringFormat("%02d", _ArraySearch($aMonth, $aTime[1]) + 1)
Local $sDay = StringFormat("%02d", $aTime[2])
Local $sZeit = $aTime[3]
Local $iDiff_Sec = _DateDiff("s", $sYear & "/" & $sMonth & "/" & $sDay & " " & $sZeit, _NowCalc())
If @error Then Return SetError(2, 0, -1)
Return $iDiff_Sec
EndFunc

Wenn du willst, kannst du noch einige Checks hinzufügen.

Gruß,
UEZ

Warum nimmst du nicht gleich ein Array anstatt 4?

Gruß,
UEZ

Schaue mal in der Hilfe nach StringUpper.

Gruß,
UEZ

Schaue mal in den NETSH Befehl rein (netsh interface ip set interface).

Gruß,
UEZ

Schade, habe den EM Titel versemmelt, sonst hätte ich das Double....

Glückwunsch an Cheater Dieter.

@pee: vielleicht klapp's ja in 2 Jahren besser mit deinen Tipps.

Bis zum nächsten Tipp Spiel!

Gruß,
UEZ