Foxtable(狐表)用户栏目专家坐堂 → 如何批量处理文件?


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

主题:如何批量处理文件?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/27 16:51:00 [显示全部帖子]

 参考下面例子,递归获取所有文件

 

下载信息  [文件大小:292.0 KB  下载次数:84]
图片点击可在新窗口打开查看点击浏览该文件:文件递归.table


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 14:18:00 [显示全部帖子]

 那请先上传例子。2楼已经很明显了啊。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/30 14:22:00 [显示全部帖子]

内部函数

 

Dim path As String = args(0)

For Each file As String In FileSys.GetFiles(path)
    Dim Book1 As New XLS.Book(file)
    Dim Sheet1 = Book1.Sheets(0)
    For i As Integer = 0 To Sheet1.Rows.Count-1
        For j As Integer = 0 To Sheet1.Cols.Count -1
            If dic.ContainsKey(Sheet1(i, j).Text) Then
                Output.Show(Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text))
                Sheet1(i, j).value = Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text)
               
            End If
        Next
    Next
    '//保存
    Book1.Save(file)

Next

For Each p As String In FileSys.GetDirectories(path)
    Functions.Execute("递归", p)
Next

 

调用

 

Dim file As String =  e.Form.Controls("TextBox1").value

Functions.Execute("递归", file)


 回到顶部