حذف عبارت   [بایگانی]

ashena29

سه شنبه 25 بهمن 1384, 14:01 عصر

با عرض سلام خدمت تمامی دوستان بنده تازه عضو این گروه شده ام
دررابطه با حذف عبارت ;psbn& که معمولا در صفحات وب در تکست باکسهای خالی بوجود می آید و نهایت در بانک اطلاعاتی می نشیند چنانچه دوستان می توانندکمکی نماین ممنون میشوم

Behrouz_Rad

سه شنبه 25 بهمن 1384, 21:07 عصر

البته بنده که تا به حال همچین چیزی ندیدم اما:

Dim strOut As String = TextBox1.Text
strOut = strOut.Replace(" "," ")
Return strOut

موفق باشید.

صابر

چهارشنبه 26 بهمن 1384, 02: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, 09:32 صبح

با تشکر از آقایان راد و صابر که زحمت پاسخ به این تاپیک را کشیدند
مشکل با توصیه این عزیزان رفع نگردید حال سعی میکنم بیشتر مسئله را توضیح دهم
من web formدر کارم استفاده کرده ام که جهت ورود و اصلاح اطلاعات از استور پراسیجر استفاده میکنم به هنگام ورود اطلاعات و یا اصلاح اطلاعات داخل تکست باکسهایی که خالی هستند عبارت فوق قرار می گیره که در نهایت این عبارت در بانک من ذخیره می گردد که باعث بوجود آمدن مشکلات میشود آماده راهنمایی شما دوستان هستم

صابر

چهارشنبه 26 بهمن 1384, 14: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 فکر می‌کنم احتیاج به توضیح بیشتر در مورد عملکرد این تکه کد نیست!

اما بهتر بود که شما کد خودتون رو اینجا می‌ذاشتید تا شاید منشأ خطا پیدا می‌شد.
این کار (استفاده از کدهای اصلاح کننده) مثل چرخاندن غذا دور سر و سپس خوردن اون می‌مونه!