حذف فاصله هاي خالي در يك رشته

[milad.biroonvand]

براي حذف فاصله هاي خالي در يك رشته ، از چه كدي بايد استفاده كرد .

من از اين روش استفاده مي كنم .





Dim path As String = "m i l a d "
path = path.Replace(" ", "")

[sari-1369]

خب ، همین درسته دیگه ، مشکلش کجاست ؟

[ACorvinus]

سلام .

از این کدها هم میتونین استفاده کنین:


Str.Replace(" ", Nothing)


و یا



Str.Replace(" ", vbNullString)

[milad.biroonvand]

سلام .

از این کدها هم میتونین استفاده کنین:


Str.Replace(" ", Nothing)


و یا



Str.Replace(" ", vbNullString)



اين روش هم خيلي جالبه .

[salehbagheri]

Dim Str1 As String = "This Is a Sample"
Dim Str2 As String = Str1.Trim()
'Str2 = "ThisIsaSample"

[pirmard]

Dim Str1 As String = "This Is a Sample"
Dim Str2 As String = Str1.Trim()
'Str2 = "ThisIsaSample"


خروجی trim اون چیزی نیست که شما نوشتین . بلکه خروجیش به این صورته :
"This Is a Sample"

trim فقط فاصله های اول و آخر رشته رو حذف می کنه . در واقع این دو دستور معادلند :
trim(str)=ltrim(rtrim(str)

[salehbagheri]

Dim Str1 As String = "This Is A Sample"
Dim Str2 As String = Regex.Replace(Str1, "\s+", " ")
'Str2 = "ThisIsASample

تستش با خودتون!

[milad.biroonvand]

Dim Str1 As String = "This Is A Sample"
Dim Str2 As String = Regex.Replace(Str1, "\s+", " ")
'Str2 = "ThisIsASample

تستش با خودتون!


تستش می کنم ، ببینم چطور است.

[A.R.M.N]

Dim str1 as string="This Is Sample"
Dim str2 as string
for i=0 to str1.lenght-1
if str1(i)<>" " then str2=str2+str1(i)
next
:چشمک:

[Hossis]

همون جواب اولی یعنی riplace بهترین جواب هست ، حالاچرا این قدر پیجیده اش می‌کنید؟؟

[milad.biroonvand]

Dim str1 as string="This Is Sample"

Dim str2 as string
for i=0 to str1.lenght-1
if str1(i)<>" " then str2=str2+str1(i)
next
:چشمک:



این روش هم روش جالبیه ولی اگه از replace استفاده کنیم بهتره ، چون دیگه نیازی نیست ، پردازش زیادی برای حلقه داشته باشیم

[sari-1369]

این روش هم روش جالبیه ولی اگه از replace استفاده کنیم بهتره ، چون دیگه نیازی نیست ، پردازش زیادی برای حلقه داشته باشیم

از کجا معلوم که خود تابع Replace هم از یک حلقه استفاده نکرده باشه ؟

[amin_iman82]

این چطوره؟


Dim source As String = " A M IN "

Do While Not InStr(source, " ") = 0
source = source.Replace(" ", String.Empty)
Loop

MsgBox source

[ACorvinus]

از کجا معلوم که خود تابع Replace هم از یک حلقه استفاده نکرده باشه ؟

از کجا معلوم!!!

[milad.biroonvand]

از کجا معلوم که خود تابع Replace هم از یک حلقه استفاده نکرده باشه ؟

خود تابه replace هم از یک حلقه for استفاه میکنه ، ولی چون خود مایکروسافت اون رو در فریم ورک قرار داده ، فضا یا پردازش زیادی نمی گیره ، این فرقش تا خودت بیای بنویسی .
به نظر من .

[ali_ahr7]

path = path.Replace(" ", "")


مورد بالا خوب نيست چون شايد كاربر بجاي يك space(" ") دو تا space بزنه(" ")
اون وقت ديگه كار نميكنه