关于写文本文件的问题

Question

1:笨方法，   dim strlength as double
             dim str1 as string
             strlength=len(str)
             str1=right(str,strlength-10)
2:dim strnum as integer
  strnum = FreeFile
  open "XXXXXXX.txt"  output as #strnum
  write #strnum,str

Answer 1

1:有一个string,需要取左起第10个字符一直到字符串结束的字符怎么表示2:取出的字符串不知道长度,怎么写入一个文本文件呢?
  用了txtFile.write strContent 好像不行3:在写之前如果相应文件名的文件不存在则创建一个,如果存在,则在末尾加上strContent 应该用什么参数,怎么写呢?谢谢!!!Sub WriteFile(pFileName As String,pStr As String)
  tStr=Mid(pStr,10) '左起第10个到结尾。
  Open "1.txt" for Append As #1 '从结尾写，不存在则创建一个。
    Print #1,tStr '写文件。
  Close #1
End Sub这个程序三个问题都可以解决。

Answer 2

1:有一个string,需要取左起第10个字符一直到字符串结束的字符怎么表示
   S=Mid(Str,10)2:取出的字符串不知道长度,怎么写入一个文本文件呢?
Put #1,,Str
   Input  方式 
3:在写之前如果相应文件名的文件不存在则创建一个,如果存在,则在末尾加上strContent 应该用什么参数,怎么写呢?谢谢!!!

Answer 3

1:有一个string,需要取左起第10个字符一直到字符串结束的字符怎么表示
   S=Mid(Str,10)2:取出的字符串不知道长度,怎么写入一个文本文件呢?
   Put #1,,Str  
3:在写之前如果相应文件名的文件不存在则创建一个,如果存在,则在末尾加上strContent 应该用什么参数,怎么写呢?谢谢!!!
   以 Append 方式打开文件，如果文件存在，则在末尾加上内容，如果不存在则新建之。