| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1037 人关注过本帖
标题:怎么不能重名呢?
取消只看楼主 加入收藏
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
 问题点数:0 回复次数:4 
怎么不能重名呢?

我在把xls文件转化为dbf表是可以的,但是要在相同的目录下以相同的名字保存就是不行,不知道为什么。必须要改个名字!请大家指点。
(比如,把C:\大家好.xls转化后,在同一目标下保存大家好.dbf就是不行!痛苦ing)
请各位高手帮忙。在些先谢过了!




SET SAFETY OFF

Exl_File=GETFILE('XLS','请选择XLS表','打开',0,'XLS表转换为DBF表')

IF EMPTY(Exl_File)

MESSAGEBOX('没有选择XLS表!',0,'山东大学')

RETURN

ENDIF

IF UPPER(JUSTEXT(Exl_File)) != "XLS"

MESSAGEBOX('输入了非XLS文件名!',0,'山东大学')

RETURN

ENDIF

MyDBF_File = PUTFILE("DBF文件名",JUSTSTEM(Exl_File),"DBF")

IF EMPTY(MyDBF_File) OR UPPER(JUSTEXT(MyDBF_File)) != "DBF"

MESSAGEBOX('没有输入文件名,或输入了非DBF文件名!',0,'山东大学')

RETURN

ENDIF

IF MESSAGEBOX('是否将表:《'+Exl_File+'》转换为 DBF表?',4+32,'山东大学)!=6

RETURN

ENDIF

IMPORT FROM (Exl_File) TYPE XL5

TEMP_File=JUSTPATH(Exl_File)+'\'+JUSTSTEM(Exl_File)+'.DBF'

IF ALLTRIM(MyDBF_File)!=ALLTRIM(TEMP_File)

COPY TO (MyDBF_File)

ENDIF

EXPP=MESSAGEBOX('XLS 转换为 DBF 已完成!'+CHR(13)+'是否将XLS表的第一行内容作为字段名?',4+32,'山东大学')

IF EXPP=6 && 确认

PUBLIC MYArrayName[1],ArrayName11[1]

USE && 关闭临时表

USE (MyDBF_File) && 打开已保存的表

ZD_NO=AFIELDS(MYArrayName) && 将表的字段信息复制到一个数组中,返回字段个数。 FCOUNT()

GO 1

SCATTER TO ArrayName11

FOR Iwww=1 TO ZD_NO

AA=MYArrayName[Iwww,1] && 获取字段名。 FIELD(I)

BB=ALLTRIM(ArrayName11[Iwww]) && 获取第一行记录内容

ALTER TABLE (ALLTRIM(MyDBF_File)) RENAME COLUMN (AA) TO (BB) && 修改表的字段名

ENDFOR

DELETE

Pack

ENDIF

BROWSE

USE

搜索更多相关主题的帖子: 山东大学 XLS dbf xls 重名 
2006-06-30 12:34
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
得分:0 
哇哇哇,版主,还是不行。真的是不明白怎么回事!咳!

我很乖,但不娇!
2006-06-30 21:25
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
得分:0 

没有人帮忙么?

还是我的问题太菜了,没有人理我!


我很乖,但不娇!
2006-07-02 14:38
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
得分:0 
谢谢版主
不过我想问题可能不是在这
因为这是文件内容的问题
我的问题是不能把文件名改到和xls一样的
如果我运行上面的程序的话,把“大家好.xls”转化为“大家好.dbf”,并且两个文件是放在同一目录下的,系统会有提示“大家好。dbf文件不存在”


如果换个目录就可以了
或是改个别的名字,如大家好1。dbf就没有问题了

咳。。。。。。
版主,help........

我很乖,但不娇!
2006-07-04 18:43
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
得分:0 


对,可能是这个问题
谢谢你
我试试去!


我很乖,但不娇!
2006-07-05 12:57
快速回复:怎么不能重名呢?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033918 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved