XAS, Xml Server, Xml Services, XML Kiosk, Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Dimanche 9 Mai 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Jeudi 27 Mai 2010	Par	Support France
Thème	Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	MODIMP.IMPCleanData

Prototype

Function IMPCleanData (sData As String, sMethode As String) As String

Usage
Administration-des-Import-Export.IMPCleanData(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function IMPCleanData (sData As String, sMethode As String) As String

Function IMPCleanData (sData As String, sMethode As String) As String
Dim Ret%
Dim s$
Dim s2$
Dim a As Single

IMPCleanData = ""
s2 = Trim$(sData)
If s2 = "" Then
    s = Chr$(34) + Chr$(34)
Else
    Select Case sMethode
	Case "XDATE"
	    s = s2
	    If s = "00000000" Then
		s2 = Left$(Date$, 8) + " 00:00:00"
	    Else
		s2 = Mid$(s, 7, 2) + "/" + Mid$(s, 5, 2) + "/" + Mid$(s, 3, 2) + " 00:00:00"
	    End If
	Case "XHOUR"
	    s = s2
	    s2 = "00/00/00 " + Left$(s, 2) + ":" + Right$(s, 2) + ":00"
	Case "XVAL"
	    s = s2
	    s2 = CStr(Val(s))
	Case "XMONEY"
	    a = Val("0.00")
	    a = Val(s2)
	    s2 = CStr(a)
	Case "XADRESS"
	    s = s2
	Case Else
	    s = Trim$(XasSetChar(s2, Chr$(34), " ", 0, 0))
	    s2 = s
    End Select
    s = Chr$(34) + s2 + Chr$(34)
End If
IMPCleanData = s
End Function

Références XAS.Technology

Trim , Chr , Left , Date , Mid , Right , Cstr , Val , XasSetChar ,

Audience

Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs.
Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet.