随时添加删除附件问题？

2008-07-08 05:29:54 122 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

kettle从入门到精通第六十二课 ETL之kettle job中发送邮件（带多个附件），闭坑指南 1、今天群里一个朋友加我微信遇到问下向我求助。2、先自我膨胀下，自从写kettle系列文章之后认识了很多朋友，同时文章也帮助了很多人，让更多朋友少走弯路，高效率工作，节省更多时间享受生活陪伴自己的家人。10、怪异的问题发生在步骤【添加文件到结果文件中】，经过测试发现该步骤会将当前步骤之前的所有步骤中涉及的文件一并添加到结果文件中。解决方案：在步骤【添加文件到结果文件中】前面添加步骤【从结果文件中删除文件】将不需要的文件删除，导致问题解决。4、使用步骤【添加文件到结果文件中】设置指定文件。阅读详情

下面的命令可以实现添加文件，并记录文件名到text2内，
但我还想能够随时删除text2的内容，随时添加
可是我点了cls按钮后，却不能再添加了？
谁能帮忙给改改，或者有更好的代码和建议？
Private Sub CmdAdd_Click()
With CommonDialog1
.InitDir = App.Path & "\data\0606"
.DialogTitle = "打开"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
End With

Dim i As Long, n As Long
n = Text2.UBound
If n > 4 Then End '最多添加6个附件
For i = 0 To n
If Len(Text2(i).Text) = 0 Then
Exit For
End If
Next '检查有没有空白文件
If i > n Then
Load Text2(i)
Text2(i).Visible = True
Text2(i).Move Text2(i - 1).Left, Text2(i - 1).Top + Text2(i - 1).Height + 90

Load Cmdcls(i)
Cmdcls(i).Visible = True
Cmdcls(i).Move Cmdcls(i - 1).Left, Cmdcls(i - 1).Top + Cmdcls(i - 1).Height + 50
End If
FileNumber = i

End Sub

Private Sub Cmdcls_Click(Index As Integer)
Text2(Index).Text = ""
End Sub

...全文

教程：使用Java在PDF中添加或删除附件 PDF是数字文档世界中的主要文件格式之一。PDF格式允许将文件作为附件嵌入PDF文件中。这些附件类似于您添加到电子邮件中的附件。为了自动执行PDF附件操作，本文提供了一些使用Java在PDF文件中添加和删除附件的简单方法。使用Java获取PDF附件信息在Java中将附件添加到PDF 在Java中从PDF删除附件目前，Java版Aspose.PDF升级到v20.11版，感兴趣的朋友可点击下载最新版使用Java获取PDF附件信息首先，让我们检查一下如何检索PDF文件中的附件信息。该信息包含附阅读详情

qq41251299

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

qq41251299 2008-07-08

打赏
举报

这个样子解决了，嘻嘻！
Private Sub CmdAdd_Click()
With CommonDialog1
.InitDir = App.Path & "\data\0606"
.DialogTitle = "打开"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*) ¦*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
End With

Dim i As Long, n As Long
n = Text2.UBound

If n > 4 Then End '最多添加6个附件
For i = 0 To n
If Len(Text2(i).Text) = 0 Then
Text2(i) = CommonDialog1.FileName
GoTo lbl1
Else

End If
Next '检查有没有空白文件

If i > n Then
Load Text2(i)
Text2(i).Visible = True
Text2(i).Move Text2(i - 1).Left, Text2(i - 1).Top + Text2(i - 1).Height + 90

If i = Cmdcls.UBound + 1 Then
Load Cmdcls(i)
Cmdcls(i).Visible = True
Cmdcls(i).Move Cmdcls(i - 1).Left, Cmdcls(i - 1).Top + Cmdcls(i - 1).Height + 50
End If
End If

lbl1: FileNumber = i
If n = 4 Then MsgBox "注意，最多添加6个文件"
End Sub

Private Sub Cmdcls_Click(Index As Integer)
Select Case Index
Case 0
Text2(0).Text = ""
Case 1
Text2(1).Text = ""
Case 2
Text2(2).Text = ""
Case 3
Text2(3).Text = ""
Case 4
Text2(4).Text = ""
Case 5
Text2(5).Text = ""
End Select

End Sub

fvflove 2008-07-08

打赏
举报

先建立一个按扭,Name=cmdCls Visible=False

再建立一个文件框,Name=Text2 Visible=False



Private Sub CmdAdd_Click()

   With CommonDialog1

        .InitDir = App.Path & "\data\0606"

        .DialogTitle = "打开"

        .CancelError = False

        'ToDo: 设置 common dialog 控件的标志和属性

        .Filter = "所有文件 (*.*) |*.*"

        .ShowOpen

        If Len(.FileName) = 0 Then

            Exit Sub

        End If

    End With

    

    Dim i As Long, n As Long

    n = Text2.UBound

    If n = 5 Then MsgBox "注意，最多添加6个文件"

    If n > 5 Then Exit Sub          '最多添加6个附件



   Load Text2(Text2.Count)

   Load cmdCls(cmdCls.Count)

   Text2(Text2.Count - 1).Text = CommonDialog1.filename

   Text2(Text2.Count - 1).Top = Text2(Text2.Count - 2).Top + Text2(0).Height

   Text2(Text2.Count - 1).Left = Text2(0).Left

   Text2(Text2.Count - 1).Visible = True

  

   cmdCls(cmdCls.Count - 1).Top = cmdCls(cmdCls.Count - 2).Top + cmdCls(0).Height

   cmdCls(cmdCls.Count - 1).Left = cmdCls(0).Left

   cmdCls(cmdCls.Count - 1).Visible = True

  

End Sub



Private Sub Cmdcls_Click(Index As Integer)

   Text2(Index).Text = ""

   For i = Index To Text2.Count - 2

     Text2(i).Text = Text2(i + 1).Text

   Next

   Unload Text2(Text2.Count - 1)

   Unload cmdCls(cmdCls.Count - 1)

   

End Sub

随时添加删除附件问题？

相关推荐