Считать часть строки до символа

[netfrog]

Сорри, клинит после гулянок в выходне , как определенное число символов считать - помню, а вот как читать строку до того как попадется нужное сочетание символов - не помню. Хелп, что ли...

[RayShade]

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

result = mid(myst,1,instr(1,mystr,mysymbol,vbtextcompare))

mysymbol - нудный символ до которого ты будешь читать строку

[netfrog]

спасибо тебе хороший человек

[Firestorm]

я гоняю этот mid только с тремя "данными"
типа mid(stroka,nachalo,kol-vosimv)... этого хватает

[netfrog]

2Fireshtorm не прокатит для первой порции данных. В моем, например, случае известно, что нужно взять строку, заканчивающуюся на ",". Сколько символов - неизвестно. Дальше да. Пример строки? "236005 Калининград, лялялялялял лялял ляля". Вот этот "Калининград" может замениться на "Тула" и песец

[netfrog]

сорри, нечаянно ник переврал

[Firestorm]

ну может, но мне не приходилось этим пользоваться

[LsD85]

Если тебе надо взять фрагмент в строке до определенного символа то нужно это сделать через цикл, под рукой VB нет, так что я на память попробую:

dim Stroka 'Там у тебя строчка с которой и производятся действия
for i = 0 to len(Stroka) - 1 'Тут мы как бы начинаем катать mid по строке, проверяя, где есть ","
if mid(Stroka, i, 1) = "," then ' Первый параметр у mid, оперируемая строка, втророй номер проверяемого символа, третий это обозначение, что проверяется один символ.
' Тут твои действия
' если обнаружена запятая
end if
next i

Вот так вот, если тебе надо вырезать то что находится до символа, то в действиях, напиши типа:
MyPerem = mid(Stroka, 0, i), и программа поместит содержимое до запятой в переменную MyPerem.

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

[netfrog]

тоже вкусный вариант, особенно удобно. если надо несколько частей (>3) тянуть из строки. Код получается проще и удобочитаемым

[waresok]

Помогите разобраться:

например есть Text1.Text = "123,000"

Как содержимое до запятой, то есть "123", вырезать в отдельную переменную...

исходя из вешеописанного примера переделал так:

strA = Text1.Text
For I = 1 To Len(strA) - 1
If Mid(strA, I, 1) = "," Then
MyPerem = Mid(strA, 1, I)
Text2.Text = MyPerem
End If
Next I

возвращает "123," то есть зяпятая остается, а мне нужен только текст до зяпятой!

[tyomitch]

Очевидно, вместо I используй I-1
А вместо цикла лучше InStr

[waresok]

Спасибо! Все работает!

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

[Demonx]

result = Mid("123,00", 1, InStr(1, "123,00", ",", vbTextCompare) - 1)
MsgBox result

[waresok]

Demonx, так также выводит до запятой, а как вывести текст после запятой? то есть 00 в данном примере

[iGrok]

Demonx, так также выводит до запятой, а как вывести текст после запятой? то есть 00 в данном примере

Почитать справку по Mid$, и подумать.
result = Mid("123,00", InStr(1, "123,00", ",", vbTextCompare) - 1)

[Demonx]

Demonx, так также выводит до запятой, а как вывести текст после запятой? то есть 00 в данном примере

Почитать справку по Mid$, и подумать.
result = Mid("123,00", InStr(1, "123,00", ",", vbTextCompare) - 1)

result = Mid("123,00", InStr(1, "123,00", ",", vbTextCompare) + 1)

[iGrok]

result = Mid("123,00", InStr(1, "123,00", ",", vbTextCompare) + 1)

Тьфу ты. Точно. Не посмотрел на смещение. ) Но уж об этом он и сам мог бы догадаться, посмотрев на три поста выше. =)

[HandKot]

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

split("123,00", ",")(1)

?

[Бяка]

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

split("123,00", ",")(1)

?

наконецто ктото вспомнил о split

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

Dim Tmp$, Signature$,  TP, i As Integer
Signature=","
Tmp = "123,00,666"
TP = Split(Tmp, Signature)

If Not IsArray(TP ) Then
   msgbox "нету тутт такого символя"
  exit sub
end if
For i = 0 To UBound(TP)
    msgbox TP(i)
Next

[Alec]

как читать строку до того как попадется нужное сочетание символов

А чем Left$(St,instr(.....)) не устраивает?

[iGrok]

как читать строку до того как попадется нужное сочетание символов

А чем Left$(St,instr(.....)) не устраивает?

Всем устраивает. А чем это кардинально отличается от Mid$(St, 1, Instr(...)) ?

[Alec]

А чем это кардинально отличается от Mid$?

Кардинально - ничем (возможно, не вникая в тоноксти). Но как-то эстетичнее и логичнее, на мой ИМХО, выглядит...

[HandKot]

Пример строки? "236005 Калининград, лялялялялял лялял ляля".
Вот этот "Калининград" может замениться на "Тула" и ...

А чем Left$(St,instr(.....)) не устраивает?

в данном случае не совсем удобен
лучше Mid или Split("236005 Калининград, лялялялялял лялял ляля", " ")(1)

[Viper]

Ну и зачем использовать Split в данном случае? Это не есть правильный способ, правильный способ - получени позиции разделителя и возвращение нужной части строки при помощи Left$, Right$ или Mid$.

[HandKot]

Ну и зачем использовать Split в данном случае?

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

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

s = "236005 Калининград, лялялялялял лялял ляля"
s = replace(s, split(s, " ")(1), "Тула")

возможно это не самый быстрый способ, но не нужно использовать ни циклы ни рекурсию

[Viper]

Ну и зачем использовать Split в данном случае?

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

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

s = "236005 Калининград, лялялялялял лялял ляля"
s = replace(s, split(s, " ")(1), "Тула")

возможно это не самый быстрый способ, но не нужно использовать ни циклы ни рекурсию

Split имеет смысл использовать, когда получить массив строк из строки с разделителем. А в данной ситуации, когда надо получить текст до разделителя и после разделителя лучше пользовться именно InStr, Left, Right и Mid.
З.Ы. Кстати и для целей получения массива быстрее работает способ через InStr, Left, Right и Mid, но Split конечно удобнее.