Как убрать аоследние 4 символа из переменной?

[el-niko]

Как убрать аоследние 4 символа из переменной? Например было "54321", а должно остаться "5".

Подскажите пожалуйста...

[GSerg]

Это шутка, да?
s=left$(s,len(s)-4)

[Alexanbar]

f$=left(f$,len(f)-4)

[PATRIOT_kz]

x = "54321"
x$=left(x$,len(x)-4)

[Q2W]

Ну давайте все по несколку раз одно (ну почти) и тоже понапишем.
Кстати, f$ отличается от f также как x$ от x => получается что текст с обрубленными 4-мя символами мы пмшем в новую переменную.

[marvan]

для больших строк это лучший вариант:
Private Declare Sub CopyLng Lib "kernel32" Alias "RtlMoveMemory" _
        (ByVal pDst As Long, pSrc As Long, Optional ByVal Bytes As Long = 4)

Private Sub Form_Load()
    Dim s As String
    s = "12345"
    CopyLng StrPtr(s) - 4, Len(s) - 4
    MsgBox "s=" & s
End Sub

[tyomitch]

Ну давайте все по несколку раз одно (ну почти) и тоже понапишем.
Кстати, f$ отличается от f также как x$ от x => получается что текст с обрубленными 4-мя символами мы пмшем в новую переменную.

Ты не прав - это одно и то же.
Легко проверить -

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

Private Sub Main()
x$ = "54321"
Debug.Print x
End Sub


[tyomitch]

для больших строк это лучший вариант:

Ага, и память будет течь ручьём...

[marvan]

Ага, и память будет течь ручьём...

2tyomitch
Пустые слова. Обоснуй!

[Q2W]

x = "54321"
x$=left(x$,len(x)-4)

Typa-declaration character does not match declarated data type

[tyomitch]

x = "54321"
x$=left(x$,len(x)-4)

Typa-declaration character does not match declarated data type

Правильно.

получается что текст с обрубленными 4-мя символами мы пмшем в новую переменную

Признаёшь, что был неправ и что переменная одна?

[tyomitch]

Ага, и память будет течь ручьём...

2tyomitch
Пустые слова. Обоснуй!

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

[marvan]

2tyomitch
спасибо за замечание,ошибку осознал
тогда так:
l=Len(s)
CopyLng StrPtr(s) - 4, l - 4
MsgBox "s=" & s
CopyLng StrPtr(s) - 4, l

[Vi]

To marvan:
Ниже на 4 байта от начала строки лежит размер строки в БАЙТАХ, поэтому нужно удваивать и не писать отрицательные значения.

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

    l = 2 * (Len(s) - 4)
    If l < 0 Then l = 0
    CopyLng StrPtr(s) - 4, l

To tyomitch:
Никакой потери памяти не будет.

[marvan]

2Vi
а про размер в байтах я совсем забыл, забавно что строка в примере размером в один байт - работала нормально.
но если перед удалением строки не восстанавливать её размер - почему
Никакой потери памяти не будет?
я смотрел - там идёт вызов OLEAUT32.SysFreeString - и он не в курсе про оригинальный размер нашей строки.

[Vi]

Почему не будет потери памяти? Потому что длина выделенного блока под строку лежит в другом месте.

Счетчик символов BSTR или VB-шный String - это простой счетчик, который к исходной длине никакого отношения не имеет. Это видно хотя бы потому, что строка, имеющая 0 символов, занимает место в динамической куче и правильно удаляется.

[tyomitch]

Это видно хотя бы потому, что строка, имеющая 0 символов, занимает место в динамической куче и правильно удаляется.

Не аргумент - там всегда выделяется/удаляется 4+2*длина байт, т.е. 0-символьная строка, что логично, занимает 4 байта. И правильно удаляется.

[Vi]

Не аргумент - там всегда выделяется/удаляется 4+2*длина байт, т.е. 0-символьная строка, что логично, занимает 4 байта. И правильно удаляется.

Хорошо. Переформулируем... Когда в первый раз выделяется память под строку, всегда указывается ее желаемый размер. Этот размер, действительно, не меньше 4+2*(количество байт+1), т..к. формат BSTR такой: 4 байта счетчика + N двойных байт символов + 1 двойной 0. И когда система выделила этот блок, то его размер уже не определяется счетчиком строки. Мы не можем произвольно увеличить этот счетчик, но уж уменьшить (до нуля) никто не воспрещает. И даже обратно восстановить его. Во всяком случае, эти манипуляции не влияют на выделение/освобождение памяти - ничего не потеряется.

Есть такая функция SysReAllocStringLen, которая может продемонстрировать поведение счетчика.

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

Private Declare Function SysReAllocStringLen Lib "oleaut32" _
            (ByVal Destination As Any, ByVal Source As Long, ByVal Length As Long) As Long

Private Sub Form_Load()
    Dim s As String, sz As Long
    Dim oldadr As Long, newadr As Long, newadr2 As Long, newadr3 As Long, newadr4 As Long
    s = "1234567"
    sz = Len(s)

    oldadr = StrPtr(s)
   
    SysReAllocStringLen VarPtr(s), 0, sz - 4 ' уменьшим
    newadr = StrPtr(s)
   
    SysReAllocStringLen VarPtr(s), 0, sz ' восстановим
    newadr2 = StrPtr(s)

    SysReAllocStringLen VarPtr(s), 0, sz + 4 ' увеличим немного
    newadr3 = StrPtr(s)

    SysReAllocStringLen VarPtr(s), 0, sz + 24 ' увеличим еще
    newadr4 = StrPtr(s)

    Debug.Print Hex(oldadr), Hex(newadr), Hex(newadr2), Hex(newadr3), Hex(newadr4)
End Sub

[Q2W]

x = "54321"
x$=left(x$,len(x)-4)

Typa-declaration character does not match declarated data type

Правильно.

получается что текст с обрубленными 4-мя символами мы пмшем в новую переменную

Признаёшь, что был неправ и что переменная одна?

Лана-лана признаю, но пример от PATRIOT_kz всё-равно не рабочий.

[tyomitch]

Лана-лана признаю, но пример от PATRIOT_kz всё-равно не рабочий.

Безусловно нерабочий, этот патриот вообще за базар не отвечает и пишет всякую чушь.

[PATRIOT_kz]

слышь ты "tyomitch" - винни-пух.

Ты в дудку не гуди, а форум существует ещё чтобы по прикалываться! Я же не ты - писсимист и фашист проклятый.

[tyomitch]

слышь ты "tyomitch" - винни-пух.

Ты в дудку не гуди, а форум существует ещё чтобы по прикалываться! Я же не ты - писсимист и фашист проклятый.

Второй повод забанить патриота...

[kazah_]

Так вот... что бы выполнить эту операцию сушествует несколько простейших способов:

Str=Left(Str,len(str)-4)
************************
Str=mid(Str,1,len(Str)-4)

**********
dim Str2 as string
Str2=""
for i=1 to len(Str)
str2=str2+mid(Str,i,1)
next

**********
Выбирай любой!

[alibek]

А причем тут последний вариант? Ему же не скопировать строку надо.

[kazah_]

А причем тут последний вариант? Ему же не скопировать строку надо.

потом можно перевести ее обратно str=str2

[alibek]

Ему не надо str, ему надо str без последних четырех символов.

[RayShade]

А что, простое решение типа

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

st = left(st, len(st)-4)


Никому не катит? Или это, типа, слишком просто?



Хм. Тем более что оно уже и предлагалось кажется



PATRIOT_kz

Для поприкалываться - существует отдельный форум, типа Треп. В остальных форумах отвечают по делу. И потом, выбирай выражения все таки.

[kazah_]

Ему не надо str, ему надо str без последних четырех символов.

Да и после

dim Str2 as string
Str2=""
for i=1 to len(Str)
str2=str2+mid(Str,i,1)
next

Str=Str2 однозначно будет то что ему нада.... Наворот, ненужный зато мозги позрядились...

[alibek]

Наворот, ненужный зато мозги позрядились...

Не сказал бы, что это упражнение для мозгов. Упражнением была бы работа с памятью (CopyMemory) или использование API. А это ерунда (не говоря уж о том, что цикл должен был идти до Len(str)-4).

[marvan]

да не пользуйте что хотите
по результатам теста соотношение скоростей ниже приведённых функций 2:3:4
CopyLng StrPtr(s) - 4, LenB(s) - 8
s = Left$(s, Len(s) - 4)
s = Mid$(s, 1, Len(s) - 4)