任何在多进程中,追加文字到同一个文本文件中?

[ayun00]

我用File.AppendText(path)打开文件的时候,其他进程访问文件就会出错
请问有没有其他的解决方法?

[ayun00]

不行有错误

错误信息 "其他信息: 只能以只写模式请求追加访问。"


Dim fer As StreamWriter
Dim path = "D:\error.txt"
If File.Exists(path) = False Then
Dim ff As FileStream = File.Create(path)
ff.Close()
End If
Dim stream As New FileStream(path, FileMode.Append, FileAccess.ReadWrite, FileShare.Write)
fer = New StreamWriter(stream)
fer.WriteLine("错误:_________")
fer.WriteLine(ex.ToString)
fer.WriteLine(Chr(13))
fer.Flush()
fer.Close()
fer = Nothing

[水如烟]

SyncLock不可少

[boblaw]

不好意思，寫錯了，更正一下
方法一：允許其他進程衹讀打開

        Dim stream As New FileStream("路徑", FileMode.Append, FileAccess.Write, FileShare.Read)
        Dim sw As New StreamWriter(stream)
        //針對sw進行操作即可

方法二：允許其他進程以可讀寫權限打開

        Dim stream As New FileStream("路徑", FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
        Dim sw As New StreamWriter(stream)

[oo渣渣oo]

我是这样处理的，你可以参考一下

   Public m_Mutex As New Threading.Mutex

   Public Sub AddMessage(ByVal strMessage As String)
      Dim I As Integer
      m_Mutex.WaitOne()
      If SaveLog Then
         strMessage &= ControlChars.CrLf
         Dim fStream As FileStream
         Dim sFileName As String
         fStream = New FileStream(sFileName, FileMode.Append)
         Dim bWrite() As Byte = Encoding.Default.GetBytes(strMessage)
         fStream.Write(bWrite, 0, bWrite.Length)
         fStream.Flush()
         fStream.Close()
         fStream = Nothing
      End If
      m_Mutex.ReleaseMutex()
   End Sub

[boblaw]

[Quote=引用 3 楼 lzmtw 的回复:]
SyncLock不可少
[/Quote]
SyncLock只能同步同一个进程的不同线程，对于这个场景中的多个进程是无能为力的。
如果多个进程都是楼主写的程序来访问，那么可以在所有的程序中使用Mutex进行进程间的同步。
但如果是其他人写的程序，要出错就没办法控制了。

[水如烟]

TO boblaw :
我不大懂进程和线程,用得也少;用了的也只知道用而不知那样用有什么弊处.

知道你对这方面蛮有心得的.

谢谢.

[boblaw]

[Quote=引用 7 楼 lzmtw 的回复:]
TO boblaw :
我不大懂进程和线程,用得也少;用了的也只知道用而不知那样用有什么弊处.

知道你对这方面蛮有心得的.

谢谢.
[/Quote]
谦虚了，估计你只是大意了，呵呵。

[boblaw]

方法一：允許其他進程衹讀打開

        Dim stream As New FileStream("路徑", FileMode.Append, FileAccess.ReadWrite, FileShare.Read)
        Dim sw As New StreamWriter(stream)
        //針對sw進行操作即可

方法二：允許其他進程以可讀寫權限打開

        Dim stream As New FileStream("路徑", FileMode.Append, FileAccess.ReadWrite, FileShare.ReadWrite)
        Dim sw As New StreamWriter(stream)

[ayun00]

呵呵 SyncLock 我还不知道是什么呢


Mutex 又是怎么用的呢?

[a854468521]

多线程访问本身就很难处理，建议少用。如果确实要用您试试使用一个线程来管理其他线程的访问。