ansi码文本文件转换成utf-8文本文件

最新推荐文章于 2024-07-02 18:48:08 发布

KEVIN_HH

最新推荐文章于 2024-07-02 18:48:08 发布

阅读量2.4k

点赞数 1

分类专栏：源码文章标签： pb unicode ansi 转换

本文链接：https://blog.csdn.net/hh93998/article/details/40584137

版权

该博客介绍了一个将ANSI编码的文本文件转换为UTF-8编码的步骤，涉及使用PowerBuilder进行数据提取、文件操作以及利用ADODB.Stream对象进行编码转换。最终通过读取ANSI文件，将其内容写入新的UTF-8文件，实现转换。

摘要由CSDN通过智能技术生成

STRING ls_file_name,ls_file_name_new
String ls_file,ls_file_new
String ls_parth_local = 'E:\鑫鑫请货数据\请货库存表\'
INTEGER li_fileNum
LONG ll_column,i,ll_status,ll_loop
DATETIME ldt_sysdate
STRING ls_columnname,ls_value,ls_header,ls_detail
STRING ls_goods_opcode,ls_goods_name,ls_goods_desc,ls_lot_no,ls_expire_date,ls_produce_date,ls_package_num,ls_onavailable
STRING ls_sysdate,ls_party_owner,ls_price1,ls_price2,ls_price3

ldt_sysdate = OF_GET_SYSTEMDATE()

ls_file_name = '100_请货库存表_'+ STRING(ldt_sysdate,"YYYYMMDDHHMMSS") + ".TXT"
ls_file = ls_parth_local + ls_file_name
ls_file_new = is_parth + ls_file_name
ll_column = LONG(dw_1.OBJECT.datawindow.column.count)

FOR i = 1 TO ll_column
ls_columnname = dw_1.DESCRIBE( "#"+STRING(i)+".name")&#