ايران ويج

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

کد: 
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

کد 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 

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

GTAexcess

Di Di