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

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

2015-02-12T13:59:15Z

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

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

2014-09-10T06:20:12Z

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: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

2014-09-10T06:12:16Z

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

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

2014-09-09T18:56:11Z

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

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

2014-09-09T17:56:05Z

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

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

2014-09-08T16:32:59Z

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

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: Как разобрать строку, где слова разделены НЕСКОЛЬКИМИ пробелами

2014-09-08T14:01:29Z

MikeSh пишет:

While ...
WEnd

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

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

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

2014-09-02T19:24:57Z

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

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

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

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

WEnd
SplitMsg = Split(Msg, " ")

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

2014-09-02T17:40:42Z

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

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

2014-09-02T13:21:09Z

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

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

2014-09-02T12:02:04Z

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

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

2011-09-16T10:30:50Z

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

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

2011-09-16T07:41:50Z

Спасибо

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

2011-09-16T06:36:42Z

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

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

2011-09-16T05:25:17Z

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