Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	ConvertStringUnicodeToAscii
Where:	strText Unicode text to convert.
Constants:	None
Return Type:	String

View Function in:

Function ConvertStringUnicodeToAscii(strText)
	Dim strTempFile
				
	Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
	Dim objShell: Set objShell = CreateObject("WScript.Shell")
	
	strTempFile = objShell.ExpandEnvironmentStrings("%TEMP%")
	strTempFile = objFSO.BuildPath(strTempFile,objFSO.GetTempName)

	Set objFile = objFSO.OpenTextFile(strTempFile, 2, True, 0)
	objFile.Write strText
	objFile.Close
		
	Set objFile = objFSO.OpenTextFile(strTempFile, 1, False, 0)
	strText = objFile.ReadAll
	objFile.Close 
		
	objFSO.DeleteFile strTempFile, True
		
	Set objFile = Nothing
	Set objFSO = Nothing
		
	ConvertStringUnicodeToAscii = strText
End Function

Script Example

Dim strMyText: strMyText = "Pretend this is Unicode"
strMyText = ConvertStringUnicodeToAscii(strMyText)

WScript.Echo strMyText

Last Modification:
1/11/2008

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 10:10:38 PM for Unknown