How to handle unicode data in ActiveX script!!

• sumit-417494

  Say Hey Kid

  Points: 686

  More actions

  June 14, 2007 at 7:54 am

  #73200

  Hi,

  I am writing a ActiveX script to extract data from a LotusNotes database and realised some of the fields contain chinese characters because of which when i am writing data string to a flat file it gives an error " invalid Procedure call or augument".

   I have to extract data to a flat file.

  Any help will be highly appreciated.

  Thanks

  SUmit

• Adrian Nichols-360275

  SSCertifiable

  Points: 7694

  More actions

  June 15, 2007 at 3:49 am

  #713186

  You could try using the FileSystemObject to open a text file for Unicode writing using the Tristate switch in the OpenTextFile method.

  Function Main

   Dim fso

   Dim fol

   Dim f, sFilename

   Dim ts

   

   Const ForReading = 1, ForWriting = 2, ForAppending = 8

   Const TristateDefault = -2, TristateTrue_Unicode = -1, TristateFalse_ASCII = 0

   

   sFilename = "C:\Test.txt"

   

   Set fso = CreateObject("Scripting.FileSystemObject")

   

   ' Create File and then deallocate f as file needs opening for unicode writing

   Set f = fso.CreateTextFile(sFilename, True)

   Set f= nothing

   

   Set ts = fso.OpenTextFile(sFilename, ForWriting, TristateTrue_Unicode)

   

   'Insert looping for all data lines to be written ---- Fetch > Write

   

   'End Loop

   

   ts.Close

   Set ts = Nothing

   Set fso = Nothing

   

   

  End Function

  ---

  
  Ade

  A Freudian Slip is when you say one thing and mean your mother.
  For detail-enriched answers, ask detail-enriched questions...[/url]

• sumit-417494

  Say Hey Kid

  Points: 686

  More actions

  June 15, 2007 at 5:21 am

  #713208

  cool..i ll try this now..thanks alot..