Заменить все символы в строке после / включая пробел

Question

Я хочу заменить все символы в строке, которые идут после пробела, а затем я бы хотел также избавиться от пробела.Допустим, слово было «Бросок бейсбола», я хочу, чтобы моя программа вернула мне «Бросок» и все.Я использую некоторый код, который я нашел в сети, но он, похоже, не работает и продолжает называть Example String недопустимой переменной.Любая помощь будет принята с благодарностью

Dim ExampleString As String
ExampleString = "Throw Baseball"
Dim StringReplace As String
Dim CharReplaceCounter As String
CharReplaceCounter = 0
Dim I AS Integer
I=0
While (ExampleString.Characters(CharReplaceCounter).Text <> " ")
CharReplaceCounter = CharReplaceCounter + 1
Wend

While(I<CharReplaceCounter)
StringReplace.Characters(CharReplaceCounter).Text = ExampleString.Characters(CharReplaceCounter).Text
I=I+1
Wend

Она должна дать мне Throw для строки StringReplace, однако это не так.

Answer 1

Попробуйте использовать InStr() для определения позиции первого пробела, затем просто оставьте Left() на одну позицию меньше пробела, так что:

Left(FullString,InStr(FullString," ")-1)

Спасибо @CLR за исправление.Напечатал это с головы и начал мое InStr количество аргументов в Left

Answer 2

Dim ExampleString As String
ExampleString = "Throw Baseball"
If InStr(ExampleString, " ") Then Debug.Print Left(ExampleString, InStr(ExampleString, " ") - 1)

или

Dim ExampleString As String
ExampleString = "Throw Baseball"
Debug.Print Split(ExampleString, " ")(0)