Beiträge von UEZ

[autoit]

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include <File.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
Global $g_hGUI, $g_hGraphics, $g_hBmp_Buffer, $g_hGfx_Buffer, $g_hImage
Global $g_iMouseX, $g_iMouseY
Local $hGUI, $hGraphic, $hPen,$aArray,$g_hBmp_Buffer,$g_hGraphics
Local $g_iMouseX,$g_iMouseY,$lParam, $fY1, $fY2, $fY = 180.0

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

$hGUI = GUICreate("GDI+", 1000, 300)
GUISetState(@SW_SHOW)

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

_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsSetSmoothingMode($hGraphic, 2)
If Not _FileReadToArray("a2.din", $aArray, 0) Then
MsgBox($MB_SYSTEMMODAL, "", "There was an error reading the file. @error: " & @error) ; An error occurred reading the current script file.
EndIf
$hPen = _GDIPlus_PenCreate(0xFF101060)
For $x = 1 To UBound($aArray)-1
If StringInStr($aArray[$x],"G00 X") Then
;~ _GDIPlus_GraphicsDrawLine($hGraphic, StringTrimLeft($spl[2],1), StringTrimLeft($spl[3],1), StringTrimLeft($spl2[2],1), StringTrimLeft($spl2[3],1), $hPen)
ElseIf StringInStr($aArray[$x],"G01 X") Then
$spl = StringSplit($aArray[$x]," ")
$spl2 = StringSplit($aArray[$x-1]," ")
If $spl[0] >= 3 and $spl2[0] >= 3 Then
IF StringTrimLeft($spl2[2],1) = "-0.1" Then

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

Else
$fY1 = -StringTrimLeft($spl[3],1) + 2 * $fY ;y1 Punkt an der Koordinate fY spiegeln
$fY2 = -StringTrimLeft($spl2[3],1) + 2 * $fY ;y2 Punkt an der Koordinate fY spiegeln
_GDIPlus_GraphicsDrawLine($hGraphic, StringTrimLeft($spl[2],1),$fY1, StringTrimLeft($spl2[2],1), $fY2, $hPen)
EndIf
EndIf
EndIf
Next

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

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

; Clean up resources
_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()

[/autoit]

[autoit]

#include <Array.au3>

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

$String = '"testfenster, test, test (abcd)", 10, 10, iniread("test.ini","test","test","test"), "test"' & @CRLF
$aResult = StringSplitW(StringRegExpReplace($String, '(",")', "|"), ",")

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

_ArrayDisplay($aResult)

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

; #FUNCTION# ========================================================================================================================================
; Name .................: StringSplitW()
; Description ..........: Splits a string into columns instead of rows as it is done by SplitString(), like a csv file to a 2d array
; Syntax ...............: StringSplitW($sString, $sDelimiter, $iWidthLen)
; Parameters ...........: $sString - string to split
; $sDelimiter - [optional] the delimter how to split the string
; $iWidthLen - [optional] length of the row (amount of columns - default is 256)
; Return values .......: Success - 2d array
; Error 1 - either $sString or $delimter is not set
; Error 2 - array width exceeded
; Error 3 - error splitting string
;
; Version .............: v0.95 build 2014-06-06 beta
; Author ..............: UEZ
; Modified ............:
; Remarks .............: RegEx take from http://stackoverflow.com/questions/4476…r-within-quotes
; Related .............: StringSplit, StringReplace, StringRegExpReplace, StringLen, StringStripCR
; ===================================================================================================================================================
Func StringSplitW($sString, $sDelimiter = ";", $sQuotationMark = '"', $sDummy = "¦", $iWidthLen = 256)
If $sString = "" Or $sDelimiter = "" Then Return SetError(1, 0, 0)
Local $chk, $iWidth, $i, $j, $k, $iLen, $iMax = 1, $iMaxWidth
Local $aPos[1], $l = 0
Local $aSplit = StringSplit(StringStripCR($sString), @LF)
If @error Then Return SetError(3, 0, 0)
Local $aVertical[$aSplit[0]][$iWidthLen], $iDelimiterLen = StringLen($sDelimiter) - 1, $sLine
For $k = 1 To $aSplit[0]
$iLen = StringLen($aSplit[$k])
If $iLen > 1 Then
$sLine = StringRegExpReplace($aSplit[$k], '(?m)' & $sDelimiter & '(?=[^' & $sQuotationMark & ']*' & $sQuotationMark & '(?:[^' & $sQuotationMark & '\r\n]*' & $sQuotationMark & '[^' & $sQuotationMark & ']*' & $sQuotationMark & ')*[^' & $sQuotationMark & '\r\n]*$)', $sDummy)
$chk = StringReplace($sLine, $sDelimiter, $sDelimiter)
$iWidth = @extended
If $iWidth > $iWidthLen Then Return SetError(2, 0, 0)
If $iWidth >= $iMax Then $iMax = $iWidth + 1
Switch $iWidth
Case 0
$aVertical[$l][0] = $sLine
Case Else
Dim $aPos[$iWidth * 2 + 2]
$j = 1
$aPos[0] = 1
For $i = 0 To $iWidth - 1
$aPos[$j] = StringInStr($sLine, $sDelimiter, 0, $i + 1) - 1
$aPos[$j + 1] = $aPos[$j] + 2 + $iDelimiterLen
$j += 2
Next
$aPos[UBound($aPos) - 1] = StringLen($sLine)
$j = 0
For $i = 0 To UBound($aPos) - 1 Step 2
$aVertical[$l][$j] = StringMid(StringReplace($sLine, $sDummy, $sDelimiter), $aPos[$i], $aPos[$i + 1] - $aPos[$i] + 1)
$j += 1
Next
EndSwitch
$l += 1
EndIf
Next
ReDim $aVertical[$l][$iMax]
Return $aVertical
EndFunc

[/autoit]