VBS/WSH/JS - [решено] VBS - Разделение строки

[Ragnazar]

Как разделить полученую в результате InputBox строку?

Например пользователь ввел [url=mailto:login@site.ru]login@site.ru[/url]

Как вывести yandex.ru (или другой сайт который после @) в отдельную переменную?

(Что-бы не спрашивать у пользователя лишний раз будет "smtp." & SiteVar)

[Iska]

Код:

Код: Выделить всё

Dim arrValues
arrValues = Split("login@site.ru", "@")
WScript.Echo arrValues(1)

Возможно и просто:



Код:

Код: Выделить всё

WScript.Echo Split("login@site.ru", "@")(1)

[Ragnazar]

Что не так?



Код:

Код: Выделить всё

Dim Server
Dim From
From = InputBox("Ваша почта:", "SaVlad @-mail v2", "User@site.ru")
Server = Split("" & From, "@")
WScript.echo("" & Server)

Ошибка

Строка 6 Символ 1

Несоответствие типа



Так-же и с MsgBox

[Iska]

1. «"" & …» — лишнее.

2. При «WScript.Echo» скобки не нужны.

3.
Цитата Ragnazar:



Ошибка

Строка 6 Символ 1

Несоответствие типа

VBS/WSH/JS - [решено] VBS - Разделение строки

Метод «.Echo» не может осуществлять вывод данных агрегатного типа, …

читать дальше »

которым у Вас является «Server»:



Код:

Код: Выделить всё

From = InputBox("Ваша почта:", "SaVlad @-mail v2", "User@site.ru")
Server = Split(From, "@")
WScript.Echo TypeName(Server)

в данном случае — массив:


Цитата:





Код:

Код: Выделить всё

Variant()

. Но можно вывести отдельно взятый элемент массива.



Посему правильным написанием будет являться:



Код:

Код: Выделить всё

Dim Server
Dim From
From = InputBox("Ваша почта:", "SaVlad @-mail v2", "User@site.ru")
Server = Split(From, "@")
WScript.Echo Server(1)