تشخیص کما در یک فیلد

[mahmoodreza]

من با چه دستوری میتونم یک فیلد را بخونم و هر جا که کما وجودداشت جدا کنم و در یک پارامتر قرار بدم ؟؟؟

[M-Gheibi]

دقیقا مشکلتون کجاست.
البته دقیقا متوجه نشدم ولی شاید منظورتون اینه که میخواید هر جا کاما هست با یک کاراکتر دیگه عوض کنید؟
اگر اینطور هست از تابع Replace استفاده کنید.

[vbprogramer]

سلام
با استفاده از تابع (تعداد برداشت , مکان برداشت , رشته ) Mid هم می توانید یکی یکی کاراکترها را کنترل کنید
:wink:
:mrgreen:

[mahmoodreza]

سلام
نه مشکل اینه که
در یک فیلد 5 مدل اطلاعات ذخیره شده که با کاما جدا شدند. میخواهم این ها را بخونم و در فیلدهای جدا قرار بدم..
میخواستم بدونم با چه دستوری میتونم بگم که وقتی به کاما رسید حالا این حرف های قبل را در یک متغیر قرار بده
ممنون

[sinpin]

سلام دوست عزیز
این برنامه رو واستون نوشتم.


Private Sub Form_Load()
Dim Sample As String
Dim arrResult(4) As String
Dim i As Integer
i = 0
Sample = "sina,ali,reza,omid,nima"
Do While InStr(Sample, ",") <> 0
arrResult(i) = Left(Sample, InStr(Sample, ",") - 1)
Sample = Right(Sample, Len(Sample) - Len(arrResult(i)) - 1)
i = i + 1
Loop
arrResult(i) = Sample
For i = 0 To 4
MsgBox arrResult(i)
Next
End
End Sub[/code]

[R_BABAZADEH]

سلام
با استفاده از تابع (تعداد برداشت , مکان برداشت , رشته ) Mid هم می توانید یکی یکی کاراکترها را کنترل کنید
:wink:
:mrgreen:

lمن فکر می کنم راه بهتر هم هست و آن دستور instr است این دستور در صورت وجود جمله یا کاراکتر مورد نظر در جمله اصلی شماره مکان اولین کاراکتر مورد نظر رو
برمی کرداند

[AminSobati]

دوست عزیزم از تابع Split استفاده کنین، تمام String رو بر حسب کاراکتر مورد نظر شما از هم سوا میکنه.

[Hossein Bazyan]

راه حل آقای ثباتی بهترین راه حل است

[reza_optical]

اینو داشته باشید
Dim Poin, I As Long
'--------------------------------
Poin = 1
For I = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, I, 1)) = Asc(Txt) Then
MsgBox Mid(Text1.Text, Poin, I - Poin), vbInformation, "Re"
Poin = I + 1
End If
Next

[Armin62]

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



Dim Sample As String
Dim i As Integer
Private Sub Command1_Click()
Sample = "sina,ali,reza,omid,nima"
MyArray = Split(Sample, ",", -1, 1)
For i = 0 To 4
MsgBox MyArray(i)
Next
End Sub