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_rtnString ls_file_directory,ls_file_name //选择文件的目录及文件名称long ll_filelengthinteger li_FileNum,li_loops,li_istring     ls_filestring     ls_file_allchar    lc_tab=char(9)long    ll_start_pos = 1string ls_tempfileli_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 -1ll_filelength = filelength(ls_file_directory)if ll_filelength <=0 then return -1li_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 IFELSE    li_loops = 1END IF// 读文件FOR li_i = 1 to li_loops    FileRead(li_FileNum, ls_file)    ls_file_all = ls_file_all + ls_fileNEXT//关闭文件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 ifreturn li_rtn 
  

 

查看更多 下一篇