كار با رشته ها

[Farzadak2010]

سلام
من يه رشته به صورت

name:user:pass;name:user:pass;name:user:pass

دارم

اين رشته به اين صورت باز ميشه
name
user
pass

و علامت ; دو گروه رو از هم جدا ميكنه

ميخواستم ببينم دوستان راهي براي اين كار دارن ؟
اگه كمك كنيد خيلي خيلي ممنون ميشم

[SlowCode]

این کد رشته رو از تکست باکس میگیره و قسمت های جداشده رو چاپ میکنه.

Private Sub Command1_Click()
Dim Splited() As String
Splited() = Split(Text1, ";")
For i = 0 To UBound(Splited)
Print Splited(i)
Next
End Sub

[Veteran]

Private Sub Command1_Click()
Dim Str
Dim Str2
Str = Split("name:user:pass;name:user:pass;name:user:pass", ";")
For i = LBound(Str) To UBound(Str)
Str2 = Split(Str(i), ":")
For j = LBound(Str2) To UBound(Str2)
MsgBox Str2(j)
Next
Next
End Sub


خودشه ؟

[Farzadak2010]

اين بخش اوله و قبلا خودم اونو حل كردم

كه داده هايي كه بين ; قراردارند جدابشن
مشكل بخش دومه سواله
name:user:pass
اين ها رو چطور بعد از جدا كردن بزارم تو ليست باكس ؟
مثل كد زير


adsList1.AddItem (name)
adsList2.AddItem (user)
adsList3.AddItem (pass)



در واقع اين كارها همش براي خوندن و ذخيره سازي يه ديتابيس تحت وب هستش
كه اگه بيش از يك فايل لود بشه برنامه 100%‌ هنگ ميكنه و سرعت لود برنامه با توجه به اينترنت ملي خيلي خيلي پايين مياد

خيلي خيلي ممنون از كدي كه قرار دادين

[Farzadak2010]

ممنون دقيقا همين بود
خيلي خيلي ممنون
حيف كه يه لايك بيشتر ندارم

[Farzadak2010]

سورس برنامه ارسال شد
با تشكر از Veteran كه اين ايده رو به مرحله اجرا رسوندن

از اين سورس ميتونين براي ايجاد ديتابيس هاي كوچيك يا فايل هاي تنظيمات استفاده كنين
اگر هم فايل به صورت باينري خوانده و نوشته بشه تغيير در فايل ها كمي مشكل تر ميشه