راهنمای درمورد شکستن رشته

[YourWorldToday]

با سلام خدمت دوستان گرامی
من یه فایل تکس دارم که به صورت زیر هستش




# message log #
date=03/16/09_07:46:29
*..1157019 sz_signal_not_acknowledged cn=qsao0003

# message log #
date=03/16/09_07:49:32
**.1159021 long_duration_call
# long_duration_call_additional_data #
ict=265v0043 ogt=ltr60260
n_clg=2653327
el_clg=
n_cld=05119716002
el_cld=
n_chrg=2653327
date_ans=03/16/09_03:38 dur=0251

# message log #
date=03/16/09_10:12:37
*..1157019 sz_signal_not_acknowledged cn=833o0003

# message log #
date=03/16/09_10:12:58
*..1157019 sz_signal_not_acknowledged cn=833o0004

# message log #
date=03/16/09_10:13:13
*..1157019 sz_signal_not_acknowledged cn=833o0011

# message log #
date=03/16/09_10:13:49
*..1157019 sz_signal_not_acknowledged cn=833o0013


از دوستان گرامی درخواست دارم که بفرمایند چطور می تونم این رشته رو طوری بشکنم که فقط در هر سطر مقدار عبارت بعد از # message log # رو داشته باشم
برای مثال



date=03/16/09_10:12:37
*..1157019 sz_signal_not_acknowledged cn=833o0003

date=03/16/09_10:12:58
*..1157019 sz_signal_not_acknowledged cn=833o0004

date=03/16/09_10:13:13
*..1157019 sz_signal_not_acknowledged cn=833o0011

و الی اخر...


با تشکر

[ACorvinus]

سلام دوست من

خوب اینکه کاری نداره




Dim Str as String = 'فایل متنی شما'
Dim arrStr() as string = Split(Str,"# Message Log # ")



برای خواندن فایل متنی میتونین از StreamReader هم استفاده کنین .

ُالبته برای استفاده از StreamReader باید اونو Import کنین. اینجوری: Import System.IO

[anooshiran]

سلام دوست عزيز

از كد زير مي تواني استفاده كني
من متن شما را در تكست فايل به نام Text.Txt در درايو C ذخيره كردم.

به ابتداي فرم خود كد زير را وترد كنيد




Imports System.IO



سپس رواي زير را به پروژه خود اضافه و هر جا نياز داشتيد فراخواني كنيد.




Private Sub ReadFromTextFile()
fileStream = New FileStream("C:\Text.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim Read As StreamReader = New StreamReader(fileStream)
Dim TextLine As String
Dim str As New System.Text.StringBuilder
While Read.Peek <> -1
TextLine = Read.ReadLine()
If Not TextLine = "# message log #" Then
str.Append(TextLine & vbCrLf)
End If
End While
MsgBox(str.ToString)
Read.Close()
End Sub