PB快速替换文本中的特殊字符,该如何解决

PB快速替换文本中的特殊字符
我有一个文本格式文件格式如下：估计有十万行数据，想用TAB替换^字符，然后用PB的Importfile函数导入到数据窗口提交，但是在替换用太久的时间了，有什么好方法解决及如何提交数据吗？
谢洪明^男^19931229^0000327599^000032759901^6013822600000728956
林进军^男^19920518^0000327622^000032762201^6013822600000728956
廖海彬^女^19940115^0000327654^000032765401^6013822600000728956
覃秋游^女^19940124^0000327658^000032765801^6013822600000728956
李航^男^19940514^0000327667^000032766701^6013822600000728956

------解决方案--------------------
使用ultraedit的替换
Ctrl+R
查找 ^
替换为 ^t

------解决方案--------------------

探讨
我有一个文本格式文件格式如下：估计有十万行数据，想用TAB替换^字符，然后用PB的Importfile函数导入到数据窗口提交，但是在替换用太久的时间了，有什么好方法解决及如何提交数据吗？
谢洪明^男^19931229^0000327599^000032759901^6013822600000728956
林进军^男^19920518^0000327622^000032762201^601382……

------解决方案--------------------
ls_tab=chara(9)
if rte_1.insertdocument(txtpath, true) =1 then rtn= rte_1.Find(",", TRUE, TRUE, FALSE, TRUE)
do while rtn>0
rte_1.ReplaceText(ls_tab)
rtn= rte_1.Find(",", TRUE, TRUE, FALSE, TRUE)
loop
if rte_1.SaveDocument('c:\ecourt\temp\banktemp.txt', FileTypeText!) =1 then dw_1.ImportFile('c:\ecourt\temp\banktemp.txt')
if fileexists('c:\ecourt\temp\banktemp.txt') then filedelete('c:\ecourt\temp\banktemp.txt')

------解决方案--------------------
#10楼，看了你的代码，知道你为什么慢了。

//将文件内容读入字符串
for i = 1 to ll_loops
if FileRead(li_FileNum, ls_TempFile) < 0 then
as_ErrorMsg = "读取"+as_FileName+"文件出错。"
return -1
end if
ls_MyString = ls_MyString + ls_TempFile
next

这里不要这样写，这样子写会很慢的,你应该读取一次就替换字符，然后把ls_tempfile转换成blob,然后用BlobEdit（）连接起来。最后直接用string()转换，用importstring（）导入。

大家有情趣可以测试一下，用blobedit（）连接 + importstring（）导入，要比string 用 + 号连接再导入快十倍左右，如果文件越大就越明显
------解决方案--------------------

C/C++ code

//====================================================================
// 函数: w_import::wf_importfile()
//--------------------------------
// 描述: TXT文件导入
//--------------------------------
// 参数: 
//        datawindow    adw_name  目标窗口          
//        character     ac_separator 文件分隔符        
//--------------------------------
// 返回值:  integer
//--------------------------------
// 作者:    Ken.Wong        日期: 2010-01-20
//--------------------------------
// 修改历史: 
//    
//--------------------------------
// 版权所有 (c) 2004-2010 Sky.Qi(TM)  保留所有版权。
//====================================================================

Int li_rtn
String ls_file_directory,ls_file_name //选择文件的目录及文件名称
long ll_filelength
integer li_FileNum,li_loops,li_i
string     ls_file
string     ls_file_all
char    lc_tab=char(9)
long    ll_start_pos = 1
string ls_tempfile
li_rtn = GetFileOpenName("选择数据文件", ls_file_directory ,ls_file_name,&
    "DOC", "Text Files (*.TXT),*.TXT,"&
    + "PDF文件 (*.PDF),*.PDF,"&
    + "Doc Files (*.DOC),*.DOC," &
    + "All Files (*.*), *.*")
If li_rtn <> 1 Then Return -1
ll_filelength = filelength(ls_file_directory)
if ll_filelength <=0 then return -1
li_FileNum = FileOpen(ls_file_directory,StreamMode!, Read!)
// 统计循环次数
IF ll_filelength > 32765 THEN
    IF Mod(ll_filelength, 32765) = 0 THEN
        li_loops = ll_filelength/32765
    ELSE
        li_loops = (ll_filelength/32765) + 1
    END IF
ELSE
    li_loops = 1
END IF
// 读文件
FOR li_i = 1 to li_loops
    FileRead(li_FileNum, ls_file)
    ls_file_all = ls_file_all + ls_file
NEXT
//关闭文件
FileClose(li_FileNum)
ll_start_pos = Pos(ls_file_all, ac_separator, ll_start_pos)
if ll_start_pos <= 0 then 
    li_rtn=adw_name.ImportFile(ls_file_directory)
else
    //循环替换分割符
    DO WHILE ll_start_pos > 0
        //替换分割符
        ls_file_all = Replace(ls_file_all, ll_start_pos, 1, lc_tab)
        //找下一个分割符
        ll_start_pos = Pos(ls_file_all, ac_separator, ll_start_pos + 1)
    LOOP
    ll_filelength = lenA(ls_file_all)
    IF ll_filelength > 32765 THEN
        IF Mod(ll_filelength, 32765) = 0 THEN
            li_loops = ll_filelength/32765
        ELSE
            li_loops = (ll_filelength/32765) + 1
        END IF
    ELSE
        li_loops = 1
    END IF
    ls_tempfile = GetCurrentDirectory() + "\importfile_tmp.txt"
    If FileExists ( ls_tempfile ) Then
        filedelete(ls_tempfile)
    End if
    li_FileNum = FileOpen(ls_tempfile, &
                    StreamMode!, Write!, LockWrite!, Append! )
                    
    // 写到临时文件中
    FOR li_i = 0 to li_loops - 1
        ls_file = Mid(ls_file_all, li_i * 32765 + 1, 32765) 
        FileWrite(li_FileNum, ls_file)    
    NEXT
    //关闭临时文件
    FileClose(li_FileNum)

    //将临时文件内容倒入数据窗口
    li_rtn = adw_name.ImportFile(ls_tempfile)
    //也可以直接这样
//    li_rtn = adw_name.ImportString(ls_file_all)


    //删除临时文件
    FileDelete ( ls_tempfile )
end if
return li_rtn

PB快速替换文本中的特殊字符,该如何解决

相关推荐