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

[kazah_]

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

Давайте еще апи функции сюда примажем, и вообще создадим объект Exel и вызовем оттуда макрос....

[kazah_]

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

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

Хуйня это постоянно апи везде втыкать. Надо стадартными методами а не кучей библиотек оперировать. Как преподаватель VB Вам это говорю.

[Amed]

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

Dim dlina_stroki As Long                    'dlina ishodnoy stroki
Dim schetchik As Long                       'peremennaya dlya schetchika
Dim staraya_stroka As String                'staraya stroka
Dim novaya_stroka As String                 'novaya stroka bez 4 simvolov v konce

staraya_stroka = "Prosto kakaya-to stroka"  'gg

dlina_stroki = Len(staraya_stroka)          'ishem dlinu stroki

For schetchik = 1 To dlina_stroki - 4       'zikl po staroi stroke
    novaya_stroka = novaya_stroka & Mid$(staraya_stroka, schetchik, 1) 'perenosim pobaytovo staruiu stroky v novuiu
Next schetchik                              'konez zikla


[FaKk2]

Преподаватель, а твои стандартные функции случайно не в библиотеке сидят?

[marvan]

2 kazah_
можете писать программы, используя исключительно стандартные функции, операции и.т.п. – но пожалуйста других не учите. Вам, как преподавателю VB, - грош цена. Фанатичное нежелание использовать API функции - это прям фобия какая то.
Все ваши простые способы - создают новую строку, а значит, не годятся для работы с большим количеством длинных строк. Да и человек выдающий примеры, с функциями Left и Mid вместо Left$ и Mid$ …