Beiträge von Oscar

[autoit]

#include <Array.au3>

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

Dim $aArray[8]

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

$aArray[0] = 'chef'
$aArray[1] = 'Nachname, Vorname'
$aArray[2] = 0098300
$aArray[3] = 'test'
$aArray[4] = 'Mueller, Manfred'
$aArray[5] = '23000'
$aArray[6] = 'Abteilung Finanz, Personal'
$aArray[7] = 'Abteilung Produktion, Kontrolle'

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

For $i = 0 To UBound($aArray) - 1
If StringRegExpReplace($aArray[$i], '\H+, \H+', '') = '' Then ConsoleWrite($aArray[$i] & @CR)
Next

[/autoit]

[autoit]

#include <FTPEx.au3>
#include <Array.au3>

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

$server = 'ftp.csx.cam.ac.uk'
$username = ''
$pass = ''

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

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

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

$aFile = _FTP_ListToArrayEx($Conn, 0)
_ArrayDisplay($aFile)

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

$Ftpc = _FTP_Close($Open)

[/autoit]

[autoit]

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

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

$hGui1 = GUICreate('Gui1', 640, 480, 20, 20)
$hGui2 = GUICreate('Gui2', 400, 300, 600, 20, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetState(@SW_SHOW, $hGui1)
GUISetState(@SW_SHOW, $hGui2)
WinActivate($hGui1)
GUIRegisterMsg($WM_MOVE, 'WM_Move')
GUIRegisterMsg($WM_ACTIVATE, 'WM_ACTIVATE')

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

Do
Until GUIGetMsg() = -3

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

Func WM_Move($hWnd, $Msg, $wParam, $lParam)
Local $pos = WinGetPos($hGui1)
WinMove($hGui2, '', $pos[0]+600, $pos[1])
Return $GUI_RUNDEFMSG
EndFunc

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

Func WM_ACTIVATE($hWnd, $Msg, $wParam, $lParam)
If $hWnd = $hGui2 Then WinActivate($hGui1)
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

[autoit]

#include <Array.au3>

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

Dim $aArray[6]

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

$aArray[0] = 'chef'
$aArray[1] = 'Nachname, Vorname'
$aArray[2] = 0098300
$aArray[3] = 'test'
$aArray[4] = 'Mueller, Manfred'
$aArray[5] = '23000'

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

For $i = 0 To UBound($aArray) - 1
If StringRegExp($aArray[$i], '.+,.+') Then ConsoleWrite($i & '=' & $aArray[$i] & @CRLF)
Next

[/autoit]

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

[autoit]

;===============================================================================
; Function Name: _Chatbox_SetData($ahChat, $sMsg[, $iColor][, $iSize][, $iImgSize])
; Description:: Funktion zum schreiben in die Chatbox
; Parameter(s): $ahChat = das Rückgabe-Array von _Chatbox_Create()
; $sMsg = die Textzeile, die in die Chatbox geschrieben werden soll
; $iColor = Schriftfarbe (Standard = 0x000000, schwarz)
; $iSize = Größe der Schrift (Werte von 1 bis 7, Standard = 2)
; $iImgSize = Größe der Smilies (Standard = 19 pixel)
; Requirement(s): #include <IE.au3>
; Return Value(s): bei Erfolg = 1
; bei Fehler = 0
; und @error = 1 ($ahChat ist kein Array)
; 2 ($ahChat besitzt nicht die richtigen Array-Dimensionen)
; 3 (Logfile konnte nicht geschrieben werden)
; Author(s): Oscar (http://www.autoit.de)
;===============================================================================
Func _Chatbox_SetData(ByRef $ahChat, $sMsg, $iColor = 0x000000, $iSize = 2, $iImgSize = 19, $fAppend = False)
If Not IsArray($ahChat) Then Return SetError(1, 0, 0)
If UBound($ahChat) <> 5 Then Return SetError(2, 0, 0)
Local $hFile, $oBody
$sMsg = StringRegExpReplace($sMsg, '(?s)<.*?>', '')
$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[hr\]', '<hr>')
$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[(\/*b|\/*i|\/*u)\]', '<$1>')
$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[(color=.+?)\](.*?)\[\/(color)\]', '<font $1>$2</font>')
$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[(size=.+?)\](.*?)\[\/(size)\]', '<font $1>$2</font>')
$sMsg = '<font color="#' & Hex($iColor, 6) & '" size="' & $iSize & '">' & $sMsg & '</font>'
$sMsg = StringReplace($sMsg, @CRLF, '<br>')
$sMsg = _Chatbox_ConvertSmilies($sMsg, $ahChat[4], $iImgSize)
$sMsg = _Chatbox_ConvertMailto($sMsg)
$sMsg = _Chatbox_ConvertHyperlink($sMsg)
$oBody = _IETagNameGetCollection($ahChat[0], 'body', 0)
_IEDocInsertHTML($oBody, $sMsg)
$oBody.scrollTop = 0x5FFFFFFF
If $ahChat[3] <> '' Then
$ahChat[2] = StringRegExpReplace($ahChat[2], '(?s)(.+<body.+?>.*)(</body>.+</html>)', '$1' & $sMsg & @CRLF & '$2')
$hFile = FileOpen($ahChat[3], 2)
If $hFile = -1 Then Return SetError(3, 0, 0)
FileWrite($hFile, $ahChat[2])
FileClose($hFile)
EndIf
Return 1
EndFunc ;==>_Chatbox_SetData

[/autoit]

[autoit]

;===============================================================================
; Function Name: _Chatbox_Create($hWnd, $iLeft, $iTop, $iWidth, $iHeight[, $iBgColor][, $sLogfile][, $sImgPath][, $sScrollbar])
; Description:: erstellt eine Chatbox
; Parameter(s): $hWnd = Handle des Fensters, auf dem die Box erstellt werden soll
; $iLeft, $iTop = Position der Box
; $iWidth, $iHeight = Größe der Box
; $iBgColor = Hintergrundfarbe der Box
; $sLogfile = Logfile-Dateiname (inkl. Pfad). Ergebnis ist eine HTML-Datei.
; $sImgPath = Verzeichnispfad zu den Smiley-PNGs, Standard: @ScriptDir & '\png\'
; $sScrollbar = Vertikale Scrollbar anzeigen?
; auto = nur wenn benötigt
; yes = ja, immer
; no = nie anzeigen
; Requirement(s): #include <IE.au3>
; Return Value(s): bei Erfolg = Array, für den Aufruf der anderen Funktionen
; bei Fehler = Rückgabe: Null
; und @error = 1 (embedded IE konnte nicht erstellt werden)
; 2 (das GUI-Objekt für den IE konnte nicht erstellt werden)
; Author(s): Oscar (http://www.autoit.de)
;===============================================================================
Func _Chatbox_Create($hWnd, $iLeft, $iTop, $iWidth, $iHeight, $iBgColor = 0xffffff, $sLogfile = '', $sImgPath = '', $sScrollbar = 'auto')
Local $ahChat[5], $sTempFile, $oBody
$ahChat[0] = _IECreateEmbedded()
If @error Then Return SetError(1, 0, 0)
GUISwitch($hWnd)
$ahChat[1] = GUICtrlCreateObj($ahChat[0], $iLeft, $iTop, $iWidth, $iHeight)
GUICtrlSetResizing(-1, 1)
If $ahChat[1] = 0 Then Return SetError(2, 0, 0)
If Not FileExists($sImgPath) Then $sImgPath = @ScriptDir & '\png\'
If StringRight($sImgPath, 1) <> '\' Then $sImgPath &= '\'
$ahChat[2] = '<html>' & @CRLF & '<head>' & @CRLF & '<title>Chatbox</title>' & @CRLF & '<style type="text/css">body { background-color:#' & Hex($iBgColor, 6)
$ahChat[2] &= '; padding:0px; margin:4px; } p { margin:4px; }</style>' & @CRLF & '</head>' & @CRLF
$ahChat[2] &= '<body scroll="' & $sScrollbar & '">' & @CRLF & '</body>' & @CRLF & '</html>'
$sTempFile = @TempDir & '\ChatboxTemp.html'
$hFile = FileOpen($sTempFile, 2)
FileWrite($hFile, $ahChat[2])
FileClose($hFile)
_IENavigate($ahChat[0], $sTempFile)
$ahChat[3] = ''
If $sLogfile <> '' Then
If FileCopy($sTempFile, $sLogfile, 9) Then $ahChat[3] = $sLogfile
EndIf
FileDelete($sTempFile)
$ahChat[4] = $sImgPath
Return $ahChat
EndFunc ;==>_Chatbox_Create

[/autoit]