View Full Version : جداسازی کلمات یک لیبل
hamed_vb
جمعه 17 آذر 1391, 18:54 عصر
سلام دوستان عزیزم
ممنون میشم کمکم کنین خیلی مبتدی اما من یادم رفته منبعی ندارم مراجعه کنم
من میخوام به طور مثال ( پ/91/5369 ) عدد 5369 رو از جمع جدا کنم و با عدد یک جمع کنم و توی یه لیبل دیگه قرار بدم میشه کمکم کنین؟
M.T.P
جمعه 17 آذر 1391, 19:27 عصر
با تابع Split می تونید این کار رو انجام بدید.
این مثال رو تست کنید:
Dim strData As String
Dim arrData() As String
strData = "91/12548/K"
arrData = Split(strData, "/")
MsgBox arrData(1)
MohammadGh2011
جمعه 17 آذر 1391, 19:39 عصر
سلام دوستان عزیزم
ممنون میشم کمکم کنین خیلی مبتدی اما من یادم رفته منبعی ندارم مراجعه کنم
من میخوام به طور مثال ( پ/91/5369 ) عدد 5369 رو از جمع جدا کنم و با عدد یک جمع کنم و توی یه لیبل دیگه قرار بدم میشه کمکم کنین؟
سلام عليکم
و يا:
Dim txt As String
Dim rs As String
txt = "91/2461/m"
rs = Mid(txt, 4, 4)
Label1.Caption = rs + 5
محسن واژدی
شنبه 18 آذر 1391, 07:46 صبح
سلام علیکم
یا کد زیر:
Private Sub Command1_Click()
MsgBox Split("پ/91/5369", "/")(2)
End Sub
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.