تشخیص کاراکترهای تکراری

[.:KeihanCPU:.]

دوستان من میخوام یه سری اطلاعات رو توسط برنامم در یک فایل txt ذخیره کنم.
نوشته ها در هر بار در سطر جدید در فایل نوشته میشن.
حالا من میخوام هر بار که دستور ذخیره نوشته جدید در فایل رو صادر کردم,برنامه چک کنه که آیا این نوشته در سطرهای قبلی وجود داره یا نه؟
اگه وجود داره سیو نکنه و اگر نبود سیو کنه.

[aminbrleevb]

دوست من شما اگه می خواهین کارتون ساده باشه به جای تکست از list box استفاده کنید.
و اگه خواستین از تکست استفاده کنید باید اول فایل رو فراخوانی کنین و تمام داده های این فایل رو در یه متغیر بزارین(برای راحتی کار برای معرفی متغیر ها از Private a(9999) As Integer nv قسمت جنرال استفاده کنید من در این خط 9999 متغیر رو براحتی معرفی کردم و برای مقدار دهی راحت میتونم ار for کنم) و بعد با یه if ساده مقایسه بکنی . ولی list boxخیلی بهتره
موفق باشین.

[.:KeihanCPU:.]

آیا راه دیگه ای هم وجود داره؟

[.:KeihanCPU:.]

دوستان ممنون میشم اگر رهنمایی کنید.
چطور میتونم اطلاعات درون یک فایل تکست رو در لیست ذخیره کنم؟
و آیا راه دیگه ای وجود داره؟

[vb_hamed]

سلام


Private Sub SaveToFile(s As String)

On Error Resume Next

Dim x$, fname$

fname = "c:\test.txt"

If Dir$(fname) <> "" Then

Open fname For Input As #1

While Not EOF(1)
Line Input #1, x

If Trim$(LCase$(x)) = Trim$(LCase$(s)) Then
Close #1
Exit Sub
End If
Wend

End If

Close #1
Open "c:\test.txt" For Append As #1
Print #1, s
Close #1

End Sub

Private Sub Command1_Click()

SaveToFile "This is a test"
SaveToFile "for save to file"
SaveToFile "This is a test"
SaveToFile "This is a test"
SaveToFile "Testing..."
SaveToFile "This is a test"
SaveToFile "This is a test"
SaveToFile "This is a test"
SaveToFile "Testing..."
SaveToFile "This is a test"
SaveToFile "This is a test"
SaveToFile "This is a test"
SaveToFile "Testing..."
SaveToFile "This is a test"

End Sub