我需要将MHTML格式的数据导入，我采取的办法是用VFP打开EXCEL,然后用EXCEL打开MHTML格式的文件，第二列需要从字符格式转换成数据格式，但是转换以后，比如12000.000，变成了12，14500.000也变成了14，我试着直接用EXCEL打开MHTML格式的表格，发现12000.000，在EXCEL里面变成了12,000.000，将其从字符格式转换后，导入进来就变成了12，同样14,500.000，变成了14，请问应该如何处理才能正确导入。 ，我查了下资料，问题出在千位分隔符上，如果在转换前去掉千位分隔符应该就正确了

[此贴子已经被作者于2020-6-11 21:23编辑过]

CLOSE DATABASES 
ERASE aa.dbf
oExcel = CreateObject("Excel.Application")
WITH oExcel
    .Workbooks.Open(SYS(5)+SYS(2003)+"\6.11.MHTML")
    .ActiveSheet.Columns(2).NumberFormatLocal = "0.00"
    .ActiveSheet.UsedRange.Select
    .Selection.Columns.AutoFit
    .DisplayAlerts = .F.
    .ActiveWorkbook.Saveas(SYS(5) + SYS(2003) + "\aa.DBF", 11)
    .ActiveWorkbook.Close
    .DisplayAlerts = .T.
    .Quit
ENDWITH 
RELEASE oExcel
SELECT * FROM aa

[此贴子已经被作者于2020-6-11 22:30编辑过]

也可以直接解释6.11.MHTML

CREATE CURSOR tt (预留 C(10), 需求数量 N(10,3))
s = FILETOSTR("6.11.MHTML")
i = 4
DO WHILE .T.
    str = STREXTRACT(s, [str="], ["], i)
    num = VAL(STREXTRACT(s, [num="], ["], i-3))
    IF EMPTY(str)
        EXIT
    ENDIF
    INSERT INTO tt VALUES (str, num)
    i = i + 1
ENDDO
SELECT * FROM tt

收到的鲜花

• 厨师王德榜 于 2020-06-12 11:54 送鲜花  1朵  

向两位版主学习啦，谢谢！

非常感谢吹水佬和sdta师傅的解答，尤其是吹水佬师傅，居然可以这么弄，这比先打开excel快多了。我又一个小小的疑问，如果本身是XLS类型电子表格，好像不能用吹水佬师傅的方法，还是要先用excel打开表，第二个疑问是吹水佬师傅的函数我还是没有大看懂，i=4，为什么要从4开始，还有 num = VAL(STREXTRACT(s, [num="], ["], i-3))这里为什么要i-3。sdta师傅的办法就是每次会在硬盘中产生一个表，这不是我想要的，我只需要一个临时表

[此贴子已经被作者于2020-6-12 17:09编辑过]

1、任何文件都要解释出来才容易看得懂，XLS文件也不例外。如果本来就有软件来处理就无必要自己去解释，如DBF用VFP就可以搞定。
2、i=4，i是定位用的，是str相对s的偏移，i-3是num相对s的偏移。
或者先定位到第一个所要的str为s的开始，这样就好理解点，如：
CREATE CURSOR tt (预留 C(10), 需求数量 N(10,3))
s = FILETOSTR("6.11.MHTML")
s = SUBSTR(s, AT([str="],s,4))
i = 1
DO WHILE .T.
    str = STREXTRACT(s, [str="], ["], i)
    num = VAL(STREXTRACT(s, [num="], ["], i))
    IF EMPTY(str)
        EXIT
    ENDIF
    INSERT INTO tt VALUES (str, num)
    i = i + 1
ENDDO
SELECT * FROM tt

非常感谢吹水佬的解读，我来慢慢消化