Foxtable(狐表)用户栏目专家坐堂 → 格式转换问题!


  共有2859人关注过本帖树形打印复制链接

主题:格式转换问题!

帅哥哟,离线,有人找我吗?
heying325
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3446 威望:0 精华:0 注册:2013/9/27 9:04:00
格式转换问题!  发帖心情 Post By:2014/8/20 10:36:00 [只看该作者]

我有个excel表,想导入到fox中去。其中日期列内数据格式很乱。。有的是 2012-05-23  而有的却写成  20120523   因为数据太多,一个个改花费精力太大。。请问有什么好方法?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/20 10:37:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
heying325
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3446 威望:0 精华:0 注册:2013/9/27 9:04:00
  发帖心情 Post By:2014/8/20 10:45:00 [只看该作者]

合并我知道啊,就是不知道怎么转换!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/20 10:48:00 [只看该作者]

以下是引用heying325在2014-8-20 10:45:00的发言:
合并我知道啊,就是不知道怎么转换!

 

得看你的数据是如何的不规则,自己总结规律,如果没有规律可言,就没有处理的方法可言。


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/20 10:49:00 [只看该作者]

Dim s As String ="20120523"
s = s.Insert(4,"-").Insert(7,"-")
MessageBox.show(s)

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/8/20 10:49:00 [只看该作者]

Dim s As String ="20120523"
If s.Contains("-")=False Then
    s = s.Insert(4,"-").Insert(7,"-")
End If
MessageBox.show(s)

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/8/20 10:49:00 [只看该作者]

可以自己做个按钮,批量处理一下,假定你的格式是固定为:20050810,四位年,两位月,两位日。

 

Dim  Book As New XLS.Book("c:\test\订单.xls")
Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Dim x As Integer = 7 '假定日期是第8列
For  n  As  Integer =  1  To  Sheet.Rows.Count -1
    Dim  bh  As  String =  sheet(n,7).Text
    If isnumeric(bh) AndAlso bh.length = 8 Then
        sheet(n,7).Value = new Date(bh.SubString(0,4),bh.Substring(4,2),bh.Substring(6,2))
    End If
Next
book.Save("c:\test\订单.xls")

[此贴子已经被作者于2014-8-20 10:49:56编辑过]

 回到顶部