عدد بزرگتر

[iran2008]

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

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



AdadBozorg=[3213,546,8797,9,8797,879,7795,46,4114,46];


حال میخواستم بفهمم که چطوری میتونم عدد بزرگتر رو تشخیص بدم توش و بندازم تو تکست باکس دیگه نشونش بده ؟
مرسی :تشویق:

[.:KeihanCPU:.]

آیا همیشه چیدمان مقدار داخل تکست باکس به این صورته یا تغییر میکنه؟
اگر باری اسپمر میخواین لازم به ذکره که بعد از کروشه بزرگترین عدد رو داریم:چشمک:

[IamOverlord]

سلام دوست عزیز!
فکر کنم جواب این باشه:

Dim A As String
Dim B As String

Private Sub Command1_Click()
Adadha = Mid$(Text1.Text, 13, Len(Text1.Text) - 2 - 12) + ","
B = ""
For i = 1 To Len(Adadha)
If Mid$(Adadha, i, 1) = "," Then
If B = "" Then
B = A
Else
If Val(A) < Val(B) Then B = A
End If
A = ""
Else
A = A + Mid$(Adadha, i, 1)
End If
Next i
Text2.Text = B
End Sub

Private Sub Form_Load()

End Sub

[iran2008]

بله آقای .:KeihanCPU:. شما درست حدس زدید
اون خطی که میخوام ازش بزرگترین عدد رو بکشم بیرون در حقیقت اینه :



BlogComments=[17,4,16,3,15,1,14,0,13,1,12,1,11,3,10,6,9,0,8,1,7, 0,6,2,5,1,4,0,3,1,2,6,1,2];




متن BlogComments که ثابته .
حال من عدد بزرگتر که همون بعد از کروشه هست رو میخوام و اگه بشه اون عدد کناریش هم میخوام.
چون دو تا دو تا با هم هستند.
یکی شماره پسته و یکی دیگه هم تعداد نظر ارسالی اون پسته .


مرسی از شما .


راستی سورس آقای IamOverlord فکر کنم مورد داره . چون من تو اون همه عددی که تو پست اولی گذاشتم عدد بزرگتری داره که توی سورسی که آقای IamOverlord برام گذاشت عدد بزرگ رو 9 میده .


البته میدونم که بحث و فعالیت درباره اسپم و اینجور آشغال ها درست نیست .
اما من لازم دارم و هر جا هم هست پولیه.
دیگه خودم دست بکار شدم بسازمش.

[iran2008]

خودم روش کار کردم حل شد
مرسی

[IamOverlord]

سلام دوست عزیز!
خوشحالم که مشکلت حل شد!
فقط اینو بگم که سورسی که گذاشتم عدد کوچیک رو می ده... کافیه که علامت < رو بر عکس کنی:
یعنی این طوری:

Dim A As String
Dim B As String

Private Sub Command1_Click()
Adadha = Mid$(Text1.Text, 13, Len(Text1.Text) - 2 - 12) + ","
B = ""
For i = 1 To Len(Adadha)
If Mid$(Adadha, i, 1) = "," Then
If B = "" Then
B = A
Else
If Val(A) > Val(B) Then B = A
End If
A = ""
Else
A = A + Mid$(Adadha, i, 1)
End If
Next i
Text2.Text = B
End Sub

موفق باشی!:چشمک: