[سوال] جایگزین کردن درشته

[GTAexcess]

سلام دوستان
من چند وقته با وی.بی کار نکردم الان متوجه نمیشم مشکل این کدم چیه .
من میخوام یه فایل متی رو باز کنم ، هرجا که علامت | بود بجاش یک اینتر بخوره (یعنی یک خط بیاد پایین) و بعد اونو ذخیره کنه
راه حلی که من نوشتم یکم هم زیادی چرخوندمش ، میشه لطفا کمکم کنید .

کد:

Private Sub Tanzim()
Dim i As Integer
Dim reshte As String
Dim tmpReshte As String
i = 0
Dim FileGet As String * 1
Dim Counter As Long
Open adress For Binary As 1
For Counter = 1 To LOF(1)
Get 1, , FileGet
reshte = reshte + FileGet
Next
Close


Open adress & "1" For Append As #1

While i <= Len(reshte)
If StrComp(Mid(reshte, i, 1), "|", vbTextCompare) = 0 Then
'Print #1, vbCrLf
MsgBox Mid(reshte, i, 1)
i = i + 1
End If
'Print #1, Mid(reshte, i, 1)
i = i + 1
Wend

Close #1

End Sub

[Di Di]

کد php:

adr = "C:\ss.txt"
adr2 = "C:\ss2.txt"
Open adr For Input As 1#
While EOF(1) = False
    Input #1, FileStr
    ResultStr = ResultStr & Replace(FileStr, "|", vbNewLine)
Wend
Open adr2 For Append As 2#
Print #2, ResultStr
Close All 


اميدوارم كمك كنه