| ||
Dim Form, W1250, WISO
'Create formparser object
Set Form = CreateObject("ScriptUtils.FormParser")
Form.FormType = 2
'Process block of data with two fields.
Form.ProcessBlock "W1250=some1250chars-ìšèøžýáíé&WISO=and8859-2-ì¹èø¾ýáíé"
'Handle first field as Windows-1250 char set
Set W1250 = Form.Items("W1250")
W1250.CharSet = "Windows-1250"
Wscript.Echo W1250.Value
'Handle first field as iso-8859-2 char set
'You will get the same characters at output
Set WISO = Form.Items("WISO")
WISO.CharSet = "iso-8859-2"
Wscript.Echo WISO.Value |