METHOD1 String()
'------------------------------------------------------------------
'IGG Interface Gen Get, BatFile BatPath
'------------------------------------------------------------------
Private Function IGGBatFilePath_Method1(iContents() As String, ifilepath As String) As String
Dim iArrSize As Integer
iArrSize = UBound(iContents) - LBound(iContents)
Open ifilepath For Output As #1
For i = 0 To iArrSize
Print #1, iContents(i)
Next
Close #1
End Function
Sub IGGBatFilePath_Method1_Implent()
Dim iContents(12) As String
iContents(0) = "md file path folder1"
iContents(1) = "md file path folder2"
iContents(2) = "md file path folder3"
iContents(3) = "md file path folder4"
IGGBatFilePath_Method1 iContents, "C:\Users\mushroom\Desktop\test.bat"
End Sub
METHOD2 Collection(推荐)
利用Collection的优势在于不用考虑数组的Index。
'------------------------------------------------------------------
'IGG Interface Gen Get, BatFile BatPath
'------------------------------------------------------------------
Private Function IGGBatFilePath_Method2(iContents As Collection, ifilepath As String) As String
Open ifilepath For Output As #1
For Each Content In iContents
Print #1, Content
Next
Close #1
IGGBatFilePath = ifilepath
End Function
Public Sub IGGBatFilePath_Method2_Implent()
Dim iContents As New Collection
iContents.Add "md file path folder1"
iContents.Add "md file path folder2"
iContents.Add "md file path folder3"
IGGBatFilePath_Method2 iContents, "C:\Users\mushroom\Desktop\test.bat"
End Sub
- 写作不易,如果对你有帮助请收藏加评价
- 如果有任何地方写的有问题,请评论区指出