مبتدی: جایگزینی فضای خالی با متن در VB6 [بایگانی]

moh3ein

شنبه 17 دی 1390, 21:52 عصر

با سلام
بنده در زمینه ویژوال بیسیک بسیار مبتدی هستم و مشکلی بود که میخواستم مطرح کنم

فرض کنید در text1 ما متن زیر را قرار دادیم

visual basic 6.exe

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

visual%20basic%206.exe

یعنی فضای خالی را با چیزی که خواستیم جایگزین کند که در اینجا بجای فضای خالی %20 قرار داد
لطفا اگه امکانش هست کمک کنید
با تشکر

MohammadGh2011

شنبه 17 دی 1390, 22:27 عصر

سلام عليکم
کد زير رو داخل يک کامند کپي کنيد:
Label1.Caption = Replace(Text1.Text, " ", "%20")

موفق باشيد

moh3ein

شنبه 17 دی 1390, 22:35 عصر

با تشکر مشکلم رفع شد
اما مشکل دیگه که هست اینه که متأسفانه بین حروف کوچک و بزرگ فرق میزاره یعنی اگه
jpg را شناسایی کند Jpg را نمیشناسد
اینکه تمامی حالات را بهش فهماند میتونه سخت باشه
بهترین راه چیه که فرقی نباشه بین حروف بزرگ و کوچیک با تشکر

MohammadGh2011

شنبه 17 دی 1390, 22:41 عصر

ميتونيد از توابع LCase و UCase استفاده کنيد.
مثال:
Label1.Caption = LCase(Text1)
==================================
شما اول توضيح بديد که ميخوايد چيکار کنيد،که بشه بهتر و درست تر راهنماييتون کرد.
درضمن حروف کوچک و بزرگ اصلا ربطي به سوالي که در پست اول پرسيديد نداره.

موفق و پيروز باشيد

moh3ein

شنبه 17 دی 1390, 23:03 عصر

بازم تشکر
بله این مشکلیه که بعد درست شد
شما فرض کنید که در ویژوال یک آپلودر درست کردم که فایل رو میگیره
و با روشی که درست کردم فرمت (پسوند) آنرا تشخیص میده
برای مثال بهش گفتم فقط فایل هایی رو بگیر که با پسوند jpg باشه
اما بعد اینکه گرفت تصویر مورد نظر بدین شکل بود ax.Jpg
که حروف بزرگ باعث شد فایل را نشناسد
امیدوارم واضح گفته باشم

MohammadGh2011

شنبه 17 دی 1390, 23:14 عصر

بازم تشکر
بله این مشکلیه که بعد درست شد
شما فرض کنید که در ویژوال یک آپلودر درست کردم که فایل رو میگیره
و با روشی که درست کردم فرمت (پسوند) آنرا تشخیص میده
برای مثال بهش گفتم فقط فایل هایی رو بگیر که با پسوند jpg باشه
اما بعد اینکه گرفت تصویر مورد نظر بدین شکل بود ax.Jpg
که حروف بزرگ باعث شد فایل را نشناسد
امیدوارم واضح گفته باشم
با کمک توابع LCase و UCase ميشه اين مشکل رو حل کرد.

Veteran

شنبه 17 دی 1390, 23:17 عصر

فکر کنم بتونه کمکتون کنه
شما میتونی فیلتر کنی فایل هارو بر اساس پسوندهایی که میخواین
خود برنامه دیگه تشخصی میده

کامپوننت commondialog رو به فرم اضافه کنید
یک image روی فرم قرار بدید با یک دکمه

CommonDialog1.Filter = "Image |*.jpg"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)

moh3ein

شنبه 17 دی 1390, 23:37 عصر

با تشکر از آقای MohammadGh2011 و sobhan93
موضوع اینه که فقط همین فایل یا فرمت نیست توجه کردین که این مثاله و برنامه نیاز داره که در برابر تمامی فایل عکس العمل مناسب نشان بده
از دوست عزیزMohammadGh2011 خواهش دارم در مورد توابع LCase و UCase توضیح بیشتری و در صورت امکان مثال قرار دهند
ممنون

MohammadGh2011

شنبه 17 دی 1390, 23:45 عصر

از دوست عزیزMohammadGh2011 خواهش دارم در مورد توابع LCase و UCase توضیح بیشتری و در صورت امکان مثال قرار دهند
متاسفانه به دليل وقت کمم توضيح کامل نميتونم بدهم ولي شما ميتونيد توي گوگل همين توابع رو جستجو کنيد تا اطلاعات زيادي به دست آوريد.
تابع LCase : تمام کاراکترهای رشته ورودی را به حروف کوچک تبديل می کند .
فرمت کلی آن بصورت زير است :
LCase(string)

تابع UCase: تمام کاراکترهای رشته ورودی را به حروف بزرگ تبديل می کند .
فرمت کلی آن بصورت زير است :
UCase(string)

موفق باشيد.

Veteran

شنبه 17 دی 1390, 23:55 عصر

بر عکس گفتین
Lcase

میاد همه رو به حروف کوچیک
تبدیل میکنه

print Lcase("SoBhAn93")
'khoroji >>>> sobhan93

اما UCASE میاد همه رو به بزرگ تبدیل میکنه

print ucase("SoBhAn93")
'khoroji >>> SOBHAN93

_behnam_

یک شنبه 18 دی 1390, 00:09 صبح

سلام.
با اجاره دوستان
استاندارد چیزی که شما میخواید اینه:
Dim str As String
str = "abcdeFGhigK"
str = Replace(str, "fg", "**", , , vbTextCompare)
MsgBox str

MohammadGh2011

یک شنبه 18 دی 1390, 08:23 صبح

بر عکس گفتین
Lcase

میاد همه رو به حروف کوچیک
تبدیل میکنه

print Lcase("SoBhAn93")
'khoroji >>>> sobhan93

اما UCASE میاد همه رو به بزرگ تبدیل میکنه

print ucase("SoBhAn93")
'khoroji >>> SOBHAN93

سلام عليکم
بنده نيز همين را عرض کردم.
دوباره متن پستي را که من زدم بخوانيد.

موفق باشيد.