Серый форум — VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (olmovc2) — Thu, 12 Feb 2015 13:59:15 +0000

var str = "Мама    мыла   раму.  Рабы   не  мы,   мы   не    рабы.";
var re = / +/;
var strArray = str.split(re);
WScript.Echo("Array="+strArray);

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (Xameleon) — Wed, 10 Sep 2014 06:20:12 +0000

alexii пишет:

JSman, ну, это ежели судить по буковкам, тогда — да. А я так понял, что речь изначально шла сугубо про ориентировку по пробельным символам, то есть, включая все прочие символы в состав слов.

Как вариант

[^\s]+


Option Explicit

Dim oCol
Dim e
Dim sTmp

With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[^\s]+"
    Set oCol = .Execute("Мама    мыла   раму.  Рабы   не  мы,   мы   не    рабы.")
End With

MsgBox "Найдено элементов: " & oCol.Count

if oCol.Count < 0 Then WScript.Quit
For Each e in oCol
    sTmp = sTmp & "[" & e & "]"
Next
MsgBox sTmp

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (alexii) — Wed, 10 Sep 2014 06:12:16 +0000

JSman, ну, это ежели судить по буковкам, тогда — да. А я так понял, что речь изначально шла сугубо про ориентировку по пробельным символам, то есть, включая все прочие символы в состав слов.

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (Serge Yolkin) — Tue, 09 Sep 2014 18:56:11 +0000

JSman, ещё "ёЁ". На всякий случай

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (JSmаn) — Tue, 09 Sep 2014 17:56:05 +0000

alexii, [А-Яа-яA-Za-z]+, Execute.

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (alexii) — Mon, 08 Sep 2014 16:32:59 +0000

Выше уже было сказано:

Dim strWords

strWords = "Мама     мыла   раму.  Рабы   не  мы,   мы   не    рабы."

With WScript.CreateObject("VBScript.RegExp")
    .Pattern = " {2,}"
    .Global = True
    
    If .Test(strWords) Then
        strWords = .Replace(strWords, " ")
    End If
End With

А затем смело делайте «Split(strWords, " ")», ежели кому потребно.

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (nicksh) — Mon, 08 Sep 2014 14:01:29 +0000

MikeSh пишет:

While ...
WEnd

Замену многих пробелов на один можно сделать без цикла (правда, нужно найти символ, который не используется в тексте):

blabla = Chr(1)        ' символ, которого точно нет в тексте
Msg = Replace(Msg, "  ", " " + blabla) 
Msg = Replace(Msg, blabla + " ", "") 
Msg = Replace(Msg, blabla, "")

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (MikeSh) — Tue, 02 Sep 2014 19:24:57 +0000

Я обычно так делаю

Msg = "строка   с      пробелами    1"

While Instr(Msg, "  ") > 0 'В кавычках 2 пробела

  Msg = Replace(Msg, "  ", " ") '2 пробела меняется на 1

WEnd
SplitMsg = Split(Msg, " ")

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (omegastripes) — Tue, 02 Sep 2014 17:40:42 +0000

sString = "some     text"
Do
    lTmp = Len(sString)
    sString = Replace(sString, "  ", " ")
Loop Until Len(sString) = lTmp
aMyArray = Split(sString, " ", -1, 1)

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (alexii) — Tue, 02 Sep 2014 13:21:09 +0000

al_chel, это явно не VBScript .

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (al_chel) — Tue, 02 Sep 2014 12:02:04 +0000

String[] array = s.split("\\p{Space}++");

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (Dmitrii) — Fri, 16 Sep 2011 10:30:50 +0000

Сейчас только сообразил, что при преобразовании строки в массив без предварительной замены последовательностей пробелов на одиночные пробелы функция Trim() не понадобится.
Выражение Split(string, " ", -1, 1) вернёт массив, где каждому "лишнему" пробелу исходной строки будет соответствовать элемент, значением которого является строка нулевой длины. Следовательно, потребуется либо "уплотнить" массив, избавившись от этих элементов, либо просто проверять длину (в символах) каждого элемента перед дальнейшей обработкой.

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (Олег) — Fri, 16 Sep 2011 07:41:50 +0000

Спасибо

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (Dmitrii) — Fri, 16 Sep 2011 06:36:42 +0000

Вариант 1. Каждый элемент массива обрабатывайте функцией Trim().
Вариант 2. С помощью регулярных выражений замените последовательности пробелов на одиночные пробелы, после чего уже преобразуйте строку в массив.

Re: VBS: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

null@example.com (Олег) — Fri, 16 Sep 2011 05:25:17 +0000

Если бы количество пробелов было фиксированным, то тоже понятно: MyArray = Split(string, " ", -1, 1).