VBS的UTF8处理

FUNCTION READ4(FPATH)
	DIM ADOS
	SET ADOS = CREATEOBJECT("ADODB.STREAM")
	
	WITH ADOS
		.CHARSET = "UTF-8"
		.TYPE = 2
		.OPEN
		.LOADFROMFILE FPATH
		READ4 = .READTEXT
		.CLOSE
	END WITH
	SET ADOS = NOTHING
END FUNCTION


SUB WRITE1291(S1223)
	DIM ADOS
	SET ADOS = CREATEOBJECT("ADODB.STREAM")

	WITH ADOS
		.TYPE = 2
		.MODE = 3
		.CHARSET = "UTF-8"
		.OPEN
		.WRITETEXT S1223
		.SAVETOFILE "EXTRACTS221114-2.CSV.TXT",2
	END WITH
	SET ADOS = NOTHING
END SUB



SUB APPEND4210321(S1419)
	DIM X
	X = READ4("EXTRACTS221114-2.CSV.TXT")
	WRITE1291 X & VBCRLF & S1419
END SUB