для следующего цикла каждое слово первая буква будет заглавной - PullRequest
0 голосов
/ 07 мая 2018

что я сделаю, чтобы оно приняло мое уравнение и могло сделать все введенные слова заглавными? я f5 это уравнение, и оно показывает некоторые желтые ошибки, если я ввожу слово. я пытался, если я = 0, то так что он показывает только первое слово, заглавную букву, остальное - нет.

https://m.facebook.com/story.php?story_fbid=209840356412510&id=100021596419779&refid=17&tn=%2AW-R&_rdr

1 Ответ

0 голосов
/ 08 мая 2018

Вы не разместили свой код в своем сообщении, поэтому я не знаю, что вы пытались, но этот код отлично работает для достижения вашей цели.

Dim textBoxString As String = TextBox1.Text.Trim
'Create a string array with every words'
Dim words() As String = textBoxString.Split(" ") 
'labelString is our final result'
Dim labelString As String = ""
'cycle throught every word'
For i = 0 To textBoxString.Length - 1
    Try
        'substring(0,1) takes only the first char of the word'
        words(i) = words(i).ToUpper().Substring(0, 1) & words(i).Substring(1, words(i).Length - 1)
        labelString = labelString & words(i) & " "
    Catch ex As Exception
        Err.Clear()
        Exit For
    End Try
Next
Label1.Text = labelString

Маленькое объяснение моего кода

words(i).ToUpper.Substring(0,1)

требуется только первый символ каждого слова в цикле.

words(i).Substring(1, words(i).Lenght -1)

занимает все слово без первого символа

labelString = labelString & words(i) & " "

объединяет все слова вместе.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...