[Func] Réception de données : MsgBox du serveur Personnalisée

Numeric · #1

Salut

,
Vous avez crée votre programme de tchat et vous voulez rendre la lecture de vos données( niveau serveur) plus authentique(enfin plus originale euh!

)
vous pouvez gagner en temps (quelques secondes ) avec cette fonction.
OU du moins si vous voulez tout simplement personnaliser la lecture de vos données reçues depuis le client, Vous pourrez encore gagner en temps

.
ATTENTION : lecture des données avec la fonction MsgBox() plus précisément

Code : Tout sélectionner

; #FUNCTION# ====================================================================================================================
; Name ..........: ServerRecevedDialSocket
; Description ...: Personnalisez la lecture de vos données récues depuis le client...
; Syntax ........: ServerRecevedDialSocket($RecevedSocket[, $msgDelimiters = '|'[, $DefaultFLAG = 0x0000040[, $DefaultTitle = 'Message']]])
; Parameters ....: $RecevedSocket       - an unknown value.
;                  $msgDelimiters       - [optional] a map. Default is '|'.
;                  $DefaultFLAG         - [optional] an unknown value. Default is 0x0000040.
;                  $DefaultTitle        - [optional] an unknown value. Default is 'Message'.
; Return values .:
; Author ........: Numeric
; Modified ......:
; Remarks .......: vous pouvez définir vos options par defaut (delimiters, $DefaultFLAG, $DefaultTitle etc
; Related .......:
; Link ..........:
; Example .......: $RecevedSocket = InputBox('', '')
;................:ServerRecevedDialSocket($RecevedSocket)
; ===============================================================================================================================
Func ServerRecevedDialSocket($RecevedSocket, $msgDelimiters = '|', $DefaultFLAG = 0x0000040, $DefaultTitle = 'Message')
	If $RecevedSocket <> '' Then
		Local $Error = False
		$RegExp = StringSplit($RecevedSocket, $msgDelimiters)
		If @error = 1 Then
			$Error = True
		EndIf
		Local $msgParts, $msgShow
		For $msgParts In $RegExp
			If $Error = False Then
				If $RegExp[0] <= 3 Then
					$msgShow &= MsgBox(Number(Execute($RegExp[1])), $RegExp[2], $RegExp[3])
				Else
					$msgShow &= MsgBox($DefaultFLAG, $DefaultTitle, StringReplace($RecevedSocket, $msgDelimiters, @CRLF & StringSplit($RecevedSocket, $msgDelimiters)))
				EndIf
			ElseIf $Error = True Then
				$msgShow &= MsgBox($DefaultFLAG, $DefaultTitle, $RecevedSocket)
			EndIf
			ExitLoop
		Next
	EndIf
EndFunc   ;==>ServerRecevedDialSocket