Выдирание куска строки

[NeverGone]

Извиняюсь за дурацкий вопрос, но...
В общем суть:
имеется в файле такая строка (в начале 8 пробелов)
" window.location='http://www.***.com';"
Какими командами VB из нее можно выдрать только http://www.***.com?
Чувствую, что нужно пользовать Left\Right, но и тут проблема: у меня в проге длина http://www.***.com может меняться юзером!

[alibek]

Зацени InStr.

[NeverGone]

все равно остается проблема. В начале строки может быть и 4 пробела, и тогда InStr найдет совсем не то! Или я неправильно понял?

[alibek]

Неправильно.
Почитай описание функции.

[NeverGone]

получилось получить номер символа. Но все равно, как выдрать адрес?
Туплю...

[gjghjc]

Наводящий вопрос.
У каждой такой строки в которой содержится адрес есть какой либо завершающий символ одинаковый для всех таких строк?

[Saturn.65]

Создай форму и на ней Text1.Text
Попробуй введи туда адрес с пробелами.

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

'Запрет ввода определенных символов с буфера обмена.

Private Sub Text1_Change()
Dim selst As Long, selln As Long
With Text1
    selst = .SelStart
    selln = .SelLength
    .Text = Replace(.Text, " ", "")
    .SelLength = selln
    .SelStart = selst
End With
End Sub


[NeverGone]

спасибо, с пробелами разобрался.
но как убрать window.location=' и '; в конце?

[HiSER]

Вариант с InStr, на форму Text1 и Command1

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

Private Sub Command1_Click()
Dim b As Long
Dim e As Long
Dim tmp As String

tmp = Text1.Text

b = InStr(1, tmp, "=")
If b = 0 Then Exit Sub
b = b + 1
e = InStr(b, tmp, ";")
If e = 0 Then Exit Sub
tmp = Mid$(tmp, b, e - b)
tmp = Replace(tmp, "'", "")
tmp = Trim$(tmp)

MsgBox tmp
End Sub


[Saturn.65]

Попробуй так:

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

Private Sub Text1_Change()
Dim selst As Long, selln As Long
With Text1
    selst = .SelStart
    selln = .SelLength
    .Text = Replace(.Text, "window.location", "")
    .Text = Replace(.Text, "=", "")
    .Text = Replace(.Text, "'", "")
    .Text = Replace(.Text, ";", "")
    .Text = Replace(.Text, "?", "")
    .SelLength = selln
    .SelStart = selst
End With
End Sub


Правда ковычки не знаю как убрать.

[gjghjc]

Правда ковычки не знаю как убрать.

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

Replace (Text1.text, """","")

Кажется так

[Saturn.65]

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

Replace (Text1.text, """","")

Кажется так

Точно. Я пробовал " ставить, ошибку выдавало.

[kibernetics]

NeverGone
я бы сделал так:

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

Dim sLink As String
sLink = Mid("myString", InStr("myString;", "='") + 1)
sLink = Left(sLink, InStrRev(sLink, ";") - 2)

[dr.MIG]

А я бы сделал универсальнее

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


Dim myRegExp As New RegExp ' создаём экземпляр RegExp'a
myRegExp.MultiLine = True ' текст многострочный
myRegExp.Global = True ' будем проходить всю строку
myRegExp.IgnoreCase = True ' игнорируем регистр символов
myRegExp.Pattern = "(window.location=')(.*?)(')" ' маска

Dim aMatch As Match ' один из совпавших образцов
Dim colMatches As MatchCollection ' коллекция этих образцов
Dim testString As String ' тестируемая строка

Set colMatches = myRegExp.Execute(Text1.Text) ' запускаем
For Each aMatch In colMatches ' проходим по всей коллекции
    List1.AddItem aMatch.SubMatches(1)
Next aMatch


P.S. Не забудьте в ссылках подключить Microsoft VBScript Regular Expressions.

[Хакер]

Я бы сделал так:

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

url = Split(MyHardString, "'")(1)

Если скорость не критична (ну, вообще, я бы так конечно не сделал)

или так:

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

Dim lUrlStartPos        As Long
lUrlStartPos = instr(1, MyHardString, "'")+1
url = Mid$(MyHardString, lUrlStartPos, Instrrev(MyHardString, "'")-lUrlStartPos)

[NeverGone]

удалено...

[Хакер]

NeverGone
Его код просто ужасен.

[kibernetics]

Хакер
во-во..., точно
...подростки, что поделаешь

[Lumen]

Наскока я понял его код работает. Это главное при такой постановке задачи. То есть автору не требуется оптимизация по скорости, по размеру кода, главное результат. Следовательно при такой постановке задачи его код является решением, каким бы он ужасным ни был. Другое дело, что эта постановка подразумевает множество вариантов решения. Но тут уже выбор за автором.

[Хакер]

А, хм... Дело в том, что его не не то чтобы не оптимизирован по скорости. Предложенный мною вариант (оба) тоже не оптимизированны по скорости.

Дело в том что его вариант просто до невозможности крив. Это всё равно что для того, чтобы посчитать сложночит x + y писать такой код:

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

Dim i as long
Select Case X
     case is > 0
         for i  = 1 to x
                 z = z +1
         next i
      case is < 0
         for i = -1 to x step -1
             z = z - 1
         next i
end select
Select Case y
     case is > 0
         for i  = 1 to y
                 z = z +1
         next i
      case is < 0
         for i = -1 to y step -1
             z = z - 1
         next i
end select


Вместо такого:

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

z = x + y


[HiSER]

Там и не было написано, что это идеальный код <_<
Был написан на скорую руку и выдвинут всего лишь как вариант.

[Хакер]

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

[NeverGone]

Снова протупил... у Хакера код в 16 раз короче... Извините, виноват... Правда, размер экзешника как был 48 Кб, так и остался...
Всем спасибо.

[Хакер]

NeverGone
Размер экзешника меняется рывками.

[NeverGone]

NeverGone
Размер экзешника меняется рывками.

простите, это как?

[Хакер]

EXE файл является PE-файлом. PE-файл устроен так, что состоит из:
1) Заголовка (служебной структуры, в которой хранятся основные данные). Заголовков несколько.
2) Таблицы секцией (служебной таблице, в которой содержится информация о секциях).
3) Идущих подряд секций.

Секция - это (в общем случае) - область файла (например все данные с 5000-ного по 6000-ный байт), которая обладает одними характеристиками.

При загрузке PE-файла все секции переносятся в память. Для того, чтобы совершить это как можно быстрее - размер секции окргуляется до некоторой большой величины (например для 4 килобайт).
Поэтому, что программа состоящая из одного байта кода, что программа состоящая из 300 байт кода - обе будут после компиляции весить чуть больше 4 кб (но, во всяком случае, одинаково).

Вместо 4 кб в принципе может быть любое число - зависит от настроек компилятора. VB округляет до 1 кб. Округление всегда производится в большую сторону.

Т.е. 1 байт, 300 байт, 1000 байт всегда округлятся до 1024 байт.

[NeverGone]

Разобрался, спасибо.
Пожалуйста, закройте тему.

[Lumen]

Можно пакером воспользоваться. UPX'ом например.

[Хакер]

Lumen
http://bbs.vbstreets.ru/viewtopic.php?t=28535 (найди в тексте UPX)

[Lumen]

Зачем? Ты мне хочешь рассказать что такое UPX? Или может быть как он работает?