急问如何将字符串存入文本文件啊???急,明天交货,在线等.各位救命!

Question

我现在要将一批数据存入文本文件里面.
数据是存在数组里面的.
希望的格式是:
日期   时间   数据比如:  日期      时间     数据
       12/11    19:15    255
(这里时间没有年和秒)
我的程序如下:Public Sub SaveData()  If Not Success Then
       MsgBox "通讯失败"
       Exit Sub
  Else
  
     Dim mfile As String
     Dim hour2 As Integer
     Dim minute2 As Integer
     
     Form1.CommonDialog.Filter = "txt file|*.txt"
     Form1.CommonDialog.ShowSave
     mfile = Form1.CommonDialog.FileName
       '-----存成文本文件---
     Open mfile For Append As #1
     
     For i = 1 To Data_Len
     hour2 = i \ 4
     Minute = (i Mod 4) * 15
     Write #1, month2, date2, hour2, minute2, Data(i)'--这里的month2和date2是全局变量
     Next i
     Close   End IfEnd Sub但是现在要求存成我上面说的格式,希望大侠出手相助啊.明天程序人家就要要了.谢谢谢谢

Answer 1

For i = 1 To Data_Len
     hour2 = i \ 4
     Minute = (i Mod 4) * 15
     Write #1, month2, date2, c, minute2, Data(i)'--这里的month2和date2是全局变量
     print #1,month2 & space(4);
     print #1,date2 & space(4);
     print #1,date2 & space(4);
     print #1,minute2 & space(4);
     print #1,Data(i) & space(4)
     Next i
     Close

Answer 2

For i = 1 To Data_Len
     hour2 = i \ 4
     Minute = (i Mod 4) * 15
     print #1,month2 & space(4);
     print #1,date2 & space(4);
     print #1,date2 & space(4);
     print #1,minute2 & space(4);
     print #1,Data(i) & space(4)
     Next i
     Close

Answer 3

去看看吧，或许有你要的答案呢。
http://community.csdn.net/Expert/topic/4450/4450411.xml?temp=.9928247