View Full Version : حذف عبارت
ashena29
سه شنبه 25 بهمن 1384, 15:01 عصر
با عرض سلام خدمت تمامی دوستان بنده تازه عضو این گروه شده ام
دررابطه با حذف عبارت ;psbn& که معمولا در صفحات وب در تکست باکسهای خالی بوجود می آید و نهایت در بانک اطلاعاتی می نشیند چنانچه دوستان می توانندکمکی نماین ممنون میشوم
Behrouz_Rad
سه شنبه 25 بهمن 1384, 22:07 عصر
البته بنده که تا به حال همچین چیزی ندیدم اما:
Dim strOut As String = TextBox1.Text
strOut = strOut.Replace(" "," ")
Return strOut
موفق باشید.
صابر
چهارشنبه 26 بهمن 1384, 03:57 صبح
با عرض سلام خدمت تمامی دوستان بنده تازه عضو این گروه شده ام
دررابطه با حذف عبارت ;psbn& که معمولا در صفحات وب در تکست باکسهای خالی بوجود می آید و نهایت در بانک اطلاعاتی می نشیند چنانچه دوستان می توانندکمکی نماین ممنون میشوم
مرورگرهای اینترنتی (مثل IE) فاصلههای بیش از یک کاراکتر رو حذف میکنن.
مثلاً اگه شما توی سورس صفحه html بنویسید:
Hello World
و اونو توی مرورگر مشاهده کنید. این عبارت را میبینید:
Hello World
اما ;psbn& مرورگر را مجبور میکنید که فاصله خالی تولید کند. مثلاً اگربنویسید:
Hello ;psbn&;psbn&;psbn&;psbn& World
بین دو کلمه Hello و World پنج فاصله خالی چاپ میشود.
اما اینها اتوماتیک تولید نمیشوند!
حتماً جایی از کد شما ایراد دارد که در تکستباکس این عبارت را مینویسد.
به هر حال، کد آقای راد مشکل شما را حل میکند.
ولی شاید بهتر باشد
strOut = strOut.Replace(" ","") را با
strOut = strOut.Replace(" "," ") جابجا کنید.
ashena29
چهارشنبه 26 بهمن 1384, 10:32 صبح
با تشکر از آقایان راد و صابر که زحمت پاسخ به این تاپیک را کشیدند
مشکل با توصیه این عزیزان رفع نگردید حال سعی میکنم بیشتر مسئله را توضیح دهم
من web formدر کارم استفاده کرده ام که جهت ورود و اصلاح اطلاعات از استور پراسیجر استفاده میکنم به هنگام ورود اطلاعات و یا اصلاح اطلاعات داخل تکست باکسهایی که خالی هستند عبارت فوق قرار می گیره که در نهایت این عبارت در بانک من ذخیره می گردد که باعث بوجود آمدن مشکلات میشود آماده راهنمایی شما دوستان هستم
صابر
چهارشنبه 26 بهمن 1384, 15:34 عصر
شاید این کد کمکتون کنه، درست قبل از ذخیره در دیتابیس از این استفاده کنید:
For Each c As Control In Me.Controls
If TypeOf (c) Is TextBox Then
Dim t As TextBox = DirectCast(c, TextBox)
t.Text = t.Text.Replace(" ", " ")
End If
Next
به دلیل واضح بودن زبان vb فکر میکنم احتیاج به توضیح بیشتر در مورد عملکرد این تکه کد نیست!
اما بهتر بود که شما کد خودتون رو اینجا میذاشتید تا شاید منشأ خطا پیدا میشد.
این کار (استفاده از کدهای اصلاح کننده) مثل چرخاندن غذا دور سر و سپس خوردن اون میمونه!
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.