Вопрос про строки

[RazArt]

У меня есть естрока вида - "Аргумент 1","Аргумент 2","Аргумент 3","Аргумент 4"
Нужно сделать функцию что бы когда ей давали эту строку и нужный номер, то она возвратила бы эти данные записанныемежду запятыми. Например так:
str="Аргумент 1","Аргумент 2","Аргумент 3","Аргумент 4"
newstr=<название функции> (str, 3)
Здесь получится что newstr будет равен "Аргумент 3", как реализовать такую функцию?

[RayShade]

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

Function mySplit(str As String, num As Long) As String
mySplit = Split(str, ",")(num - 1)
End Function


[RazArt]

Я уже решил энто, только немного другим способом

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

Private Function GetNubmerArguments(str As String, number As Integer) As String
Dim TemporaryNumber As Integer
Dim TemporaryArgument As String
TemporaryNumber = 0
For x = 1 To Len(str) - 1
If Mid(str, x, 1) = "," Then
    TemporaryNumber = TemporaryNumber + 1
        If TemporaryNumber = number Then
            GetNubmerArguments = TemporaryArgument
            Exit Function
        End If
    TemporaryArgument = ""
Else
TemporaryArgument = TemporaryArgument & Mid(str, x, 1)
End If
Next x
GetNubmerArguments = TemporaryArgument & Chr("34")
End Function


А что лучше для быстродействия ваш или мой способ?

[RayShade]

Я не профайлил ни то ни то конечно. Но мне мой нравится больше Во первых там всего 3 строчки, а во вторых я думаю что 1 split точно не медленнее чем цикл с нарезанием строки

[RazArt]

Ясен, тогда остановлюсь на моём варианте, просто я собираюсь делать игру и делаю скриптовый язык ^^

[Mikle]

Логично!

[RazArt]

Что логично, остановиться на моём варианте или делать скриптовый язык для игры?)

[RayShade]

Перед тем как делать какой то там скриптовый язык, надо уж всяко научиться по нормальному разбирать строки. И под словами "по нормальному" я точно не имею в виду посимвольный перебор в цикле.

[RazArt]

RayShade, а чем вас не устраевает такой вариант? Я не думаю что сплит устроен по другому

[RayShade]

Split наверняка устроен совершенно по другому
Помимо него, есть еще regexp, с помощью которого можно разобрать строку с помощью патернов. Наконец, можно самостоятельно разрезать строку, используя InStr для поиска делителей.
И это только то что я просто навскидку придумал - в гугле скорее всего есть еще десяток способов

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

[RazArt]

Всё равно мне кажется что в основе лежит перебор строки

[iGrok]

Всё равно мне кажется что в основе лежит перебор строки

Угу. Только гораздо более оптимизированный. Заупусти оба примера в цикле на пару тысяч итераций, и замерь затраченное время.
10к итераций:
GetNumberArguments 172 мс.
MySplit 16 мс.

Разница более чем в 10 раз. Не убедительно?
Это со строкой из 4х аргументов по 4 символа. Т.е. 20 символов.
Думается, при строке из 100 символов разница будет гораздо больше...

[RayShade]

А ведь результат split можно закешировать, и если строка уже 1 раз сплитилась, выдавать сразу значение массива, а не сплитить его заново

И кстати, циклы - это одна из самых процессороемких конструкции вообще в приницпе. А уж строковые операции в цикле - это вообще туши свет.

[Zenitchik]

Один леший, если язык не тривиален, нужно писать КА. А за тем, как обойтись без строк в цикле - к Хакеру

[RazArt]

Zenitchik, я не понял, что вы имели в виду? оО

[Хакер]

Он имеет в виду конечный автомат.