جداسازی کلمات یک لیبل

[hamed_vb]

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

من میخوام به طور مثال ( پ/91/5369 ) عدد 5369 رو از جمع جدا کنم و با عدد یک جمع کنم و توی یه لیبل دیگه قرار بدم میشه کمکم کنین؟

[M.T.P]

با تابع Split می تونید این کار رو انجام بدید.

این مثال رو تست کنید:

Dim strData As String
Dim arrData() As String

strData = "91/12548/K"
arrData = Split(strData, "/")

MsgBox arrData(1)

[MohammadGh2011]

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

من میخوام به طور مثال ( پ/91/5369 ) عدد 5369 رو از جمع جدا کنم و با عدد یک جمع کنم و توی یه لیبل دیگه قرار بدم میشه کمکم کنین؟
سلام عليکم

و يا:

Dim txt As String
Dim rs As String
txt = "91/2461/m"
rs = Mid(txt, 4, 4)
Label1.Caption = rs + 5

[محسن واژدی]

سلام علیکم
یا کد زیر:
Private Sub Command1_Click()
MsgBox Split("پ/91/5369", "/")(2)
End Sub

موفق باشید