文本文件写非数组

清风明月10

Public Function 文本文件写非数组(非数组, 文件完整名称 As String, 清除原有内容是1否0, 输入位置HOME或END)
Dim E, f
'这个宏其实应属于一组宏的一部分，这组宏要处理以下情况，输入内容为非数组、一维数组、二维数组、三
'维数组……。而这组宏的变量应有“一维数组, 文件完整名称, 清除原有内容是1否0, 输入位置HOME或END, 二
'维时第一维中相邻元素间回车1制表2”
'由于这组宏比较大，所以先定出大纲，后面慢慢写
'本宏的作用是清除文本文件原有内容再写入一个一维数组。如果数组个数不确定，一定要用动态扩充方法来定义。如果只有一个数组，更要用扩充方法来定义
'是清除文本文件原有内容再写入。另外还要编一个是不清除文本文件原有内容，在原有内容的下面写入
'写入的内容一定要是数组，且应该是二维的，这样才能适应所有情况。
'动态数组的动态扩充使用ReDim Preserve声明方法见底部
Dim D
Dim KKK
Dim JJJ
KKK = 文件完整名称
Dim QQQ
QQQ = 文件是否存在(文件完整名称)
Select Case QQQ
'如果performance等于1则结果为salary乘0.1

Case "可能是文件完整名称但不存在"
      '       MsgBox "A文件不存在"
           
    '       下面代码要增写，即判断该文本文件是否存在，不存在则新建
    '建一个原不存在的文本文件的VBA代码适用于CAD\EXCEL\WORD
     Dim tFile As Object, TSO As Object
     Set TSO = CreateObject("Scripting.FileSystemObject")
     '新建一个原不存在的文本文件
     Set tFile = TSO.CreateTextFile(KKK, True)
     '输入内容
      tFile.Close
     Set tFile = Nothing
     Set TSO = Nothing
           
Case "不是文件完整名称"
            文本文件写非数组 = QQQ
            Exit Function

        Case Else
            
    End Select

非数组 = Replace(非数组, Chr(10), "禺硎嗃")
非数组 = Replace(非数组, Chr(13), "禺硎嗃")
D = Split(非数组, "禺硎嗃")
E = UBound(D, 1)

'可以在一个文本文件最后面另起一行连续反复输入内容的EXCEL的VBA宏代码.
Dim FSO As Object, sFile As Object
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")

If 清除原有内容是1否0 = 1 Then
'    '下一句并不新建文本文件，而是指明打开文件时操作的方法。第二参数ForWriting是指定删除原内容再写入。如果填ForAppending则是在原内容后面写入
'    Set sFile = FSO.OpenTextFile(KKK, ForAppending, TristateFalse)
   
     '       MsgBox "A文件不存在"
           
    '       下面代码要增写，即判断该文本文件是否存在，不存在则新建
    '建一个原不存在的文本文件的VBA代码适用于CAD\EXCEL\WORD
     
'     Set TSO = CreateObject("Scripting.FileSystemObject")
     '新建一个原不存在的文本文件
'     Set tFile = TSO.CreateTextFile(KKK, True)
'    '下一句并不新建文本文件，而是指明打开文件时操作的方法。第二参数ForWriting是指定删除原内容再写入。如果填ForAppending则是在原内容后面写入

Set sFile = FSO.OpenTextFile(KKK, ForWriting, TristateFalse)
'     '输入内容
'      tFile.Close
'     Set tFile = Nothing
'     Set TSO = Nothing
     
     
     '下一句并不新建文本文件，而是指明打开文件时操作的方法。第二参数ForWriting是指定删除原内容再写入。如果填ForAppending则是在原内容后面写入
   
Else
Set sFile = FSO.OpenTextFile(KKK, ForAppending, TristateFalse)
         
End If



        For f = 0 To E
            '输入内容到文本文件
            
            sFile.WriteLine D(f)
            
            Next f

sFile.Close
Set FSO = Nothing

Set sFile = Nothing

If 文件是否存在(文件完整名称) = "文件存在" Then
    '       MsgBox "A文件存在"
文本文件写非数组 = "已创建"
    '打开文本文件

Shell ("C:\WINDOWS\NOTEPAD.EXE " & KKK)
   
      
Else

'       MsgBox "A文件不存在"
    文本文件写非数组 = "没有创建啊！"

End If

     

End Function

jyzas

楼主免费开放源码了:)