PDA

View Full Version : سوال: حذف " ها " از کلمات



f_g1348
یک شنبه 16 مهر 1391, 15:06 عصر
سلام دوستان
من می خواهم متن ورودی داخل یک تکست باکس ( که فارسی هست ) توسط برنامه خوانده شده و " ها " در آخر کلمات حذف شود
مثلاً : انسان ها بشود انسان
البته ممکن است این " ها " به متن چسبیده باشد ( مثل انسانها ) و یا جدا
لطفاً من را راهنمایی کنید
با تشکر

Y_Safaiee
یک شنبه 16 مهر 1391, 15:16 عصر
با سلام خدمت شما دوست عزیز



textBox1.Text= textBox1.Text.Replace("ها", "");


موفق باشین
بایت بایت

f_g1348
دوشنبه 17 مهر 1391, 14:37 عصر
دوست عزیز این دستور که مثلاً کلمه " هارون " را هم "ها " را حذف می کند ولی من فقط می خواهم در انتهای جملات " ها " یا " های " یا "هایی " حذف شود

harani
دوشنبه 17 مهر 1391, 18:51 عصر
از این کد استفاده کن :


string[] str = textBox1.Text.Split(' ');

for (int i = 0 ; i < str.Length; i++)
{
if (str[i].EndsWith("ها"))
textBox1.Text = textBox1.Text.Replace("ها","");

if (str[i].ToString().EndsWith("های"))
textBox1.Text = textBox1.Text.Replace("های", "");

if (str[i].EndsWith("هایی"))
textBox1.Text = textBox1.Text.Replace("هایی", "");
}

amirafshari
چهارشنبه 26 مهر 1391, 16:21 عصر
سلام .ممنون از راهنماییتون.ولی من یه کد نوشتم میخوام فضاهای خالی تو هر فیلد جدول رو از بین ببره.مثل خوره افتاده به جونم.هر کاری میکنم جواب نمیده.میشه سر این کد راهنماییم کنید؟

Public Class Form1
Private Function Fill_combo()

Dim sqlcmd As New SqlCommand
Dim ds As New DataSet
Dim sda As New SqlDataAdapter
Dim field As String = ""
Dim ch() As Char = field.ToCharArray
Dim output As String = ch

ConnectToBank()
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = "SP_showallnames1"
sqlcmd.Connection = CN
sda.SelectCommand = sqlcmd
sda.Fill(ds, "test")


DataGridView1.DataSource = ds.Tables("test")

TextBox1.Text = ds.Tables("test").Rows(0).Item("refer")

Dim x, i, j As Integer
Dim str(14) As Char
Dim str2(14) As Char


For j = 0 To ds.Tables("test").Rows.Count - 1
field = ds.Tables("test").Rows(j).Item("refer")
TextBox2.Text = field.Length.ToString
For x = 0 To 14
str(x) = ch(x)
Next
ch = vbNullChar

Next
For x = 0 To 14
If str(x) <> " " Then
i = i + 1
str2(x) = str(x)
End If

Next
For x = 1 To i
ch(x) = str2(x)

Next
output = ch
TextBox2.Text = output


ولی پیغام میده:"Index was outside the bounds of the array."
اگه کمکم کنید ممنون میشم