|
要想在脚本组件中访问包变量，首先必须设置脚本组件2个属性的值,如下
ReadOnlyVariables
ReadWriteVariables
这2值指定了哪些变量可以访问，哪些变量可以改写（如有多个变量则用逗号分隔），如果你没有指定上面2个属性的值，则不能在脚本组件的代码中访问这2个变量 下面我举一个从文件中加载内容到包变量的一个例子
1、首先我们定义2个变量 FileName 和 FileContents ，并指定其类型为 String
2、拖曳一个脚本组件到控制面板上，并设置 ReadOnlyVariables和ReadWriteVariables 属性的值分别为 FileName 、FileContents
3、设计脚本组件的代码，如下
Public Sub Main()
Dim errorInfo As String = ""
Dim Contents As String = ""
Contents = GetFileContents(Dts.Variables("FileName").Value, errorInfo)
If errorInfo.Length > 0 Then
MsgBox(errorInfo, MsgBoxStyle.Critical, "Error")
Dts.TaskResult = Dts.Results.Failure
Else
MsgBox(Contents, MsgBoxStyle.OKOnly, "File contents")
Dts.Variables("FileContents").Value=Contents
Dts.TaskResult = Dts.Results.Success
End If
End Sub Public Function GetFileContents(ByVal filePath As String, Optional ByVal ErrorInfo As String = "") As String
Dim strContents As String
Dim objReader As StreamReader
Try
objReader = New StreamReader(filePath)
strContents = objReader.ReadToEnd()
objReader.Close()
Return strContents
Catch Ex As Exception
ErrorInfo = Ex.Message
End Try
End Function
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 