Navision ERP博客

IF ISCLEAR(WSC) THEN

CREATE(WSC);

WSC.Language:=’VBScript’;

//This is created by Yeats.

b[1]:=13;

b[2]:=10;

g_txtScript:=g_txtScript+’dim Str’+b;

g_txtScript:=g_txtScript+’Fl=’+’"’+flName+’"’+b;

g_txtScript:=g_txtScript+’set stm=CreateObject("Adodb.Stream")’+b;

g_txtScript:=g_txtScript+’stm.Type=2’+b;

g_txtScript:=g_txtScript+’stm.Mode=3’+b;

g_txtScript:=g_txtScript+’stm.CharSet="gb2312"’+b;

g_txtScript:=g_txtScript+’stm.Open’+b;

g_txtScript:=g_txtScript+’stm.LoadFromFile Fl’+b;

g_txtScript:=g_txtScript+’Str=stm.readtext’+b;

g_txtScript:=g_txtScript+’stm.Close’+b;

g_txtScript:=g_txtScript+’stm.CharSet="utf-8"’+b;

g_txtScript:=g_txtScript+’stm.Open’+b;

g_txtScript:=g_txtScript+’stm.WriteText Str’+b;

g_txtScript:=g_txtScript+’stm.SaveToFile Fl, 2’+b;

g_txtScript:=g_txtScript+’stm.flush’+b;

g_txtScript:=g_txtScript+’stm.Close’+b;

g_txtScript:=g_txtScript+’Set stm=Nothing’+b;

WSC.ExecuteStatement(g_txtScript);

IF NOT ISCLEAR(WSC) THEN

CLEAR(WSC);