主题：怎么向扩展名ini文件中写一行一行的内容，请指教！

Dim yclj As String = ProjectPath & "Attachments\test1.txt"
If Filesys.FileExists(yclj)  Then
    Dim s As String = FileSys.ReadAllText(yclj,Encoding.Default)
    s = s.Replace(chr(13),";")
    Dim Values() As String = s.split(";")
    For Each Value As String In Values
        Output.Show(Value)
    Next
End If
 
yclj  = ProjectPath & "Attachments\test2.txt"
If Filesys.FileExists(yclj)  Then
      Dim s As String =  "你好 " + vbcrlf + "Hello " + vbcrlf + "OK " 
    FileSys.WriteAllText(yclj, s,False, Encoding.Default)   
End If

供你参考！