0 / 0 / 0
Регистрация: 13.12.2007
Сообщений: 87
|
|
1 | |
'Dim Str As Str*15' заменить на Dim Str As String*1506.03.2008, 22:33. Показов 2125. Ответов 5
Метки нет (Все метки)
y menya ets string. Dlina etoy sting y menya ne postoyanaya, no ya vsegda dolshna ravnytcya 10 char. To etst mne eti char nyshno dobavlyat v nachalo sting. Kak eto sdelat?
0
|
06.03.2008, 22:33 | |
Ответы с готовыми решениями:
5
О функций Str() Dim (а тут текст из текстового поля) as String - к примеру....Можно? Почему не работает - Sub timer1_timer() sec=sec+1 label1.caption=str(sec) end sub dim ss as string ss='000001' ВыбратьПоНомеру(chr(34) & ss & chr(34),'01.01.02') не работает |
eddy
|
|
07.03.2008, 10:19 | 2 |
Я не понял данный пассаж:
'Dlina etoy sting y menya ne postoyanaya, no ya vsegda dolshna ravnytcya 10 char. To etst mne eti char nyshno dobavlyat v nachalo sting.' Если тебе нужна строка фиксированной длины, то объявляй, к примеру Dim Str As Str*15 Если ты хочешь получить первые 10 знаков, то пиши Str1 = Left$(Str, 10) Если не так понял, то приведи пример, показывающий, что имеем, и что получаем. |
eddy
|
|
07.03.2008, 11:51 | 3 |
Pardon, писал в спешке:
Уточнение: 'Dim Str As Str*15' заменить на Dim Str As String*15 |
0 / 0 / 0
Регистрация: 13.12.2007
Сообщений: 87
|
|
12.03.2008, 20:44 [ТС] | 4 |
Primer:
string1 ->0017(dlina 4) dolshno vuiti string 2 ->0000000017 (dlina 10) string1 dlina ne fixsirovannaya.string 2 vcegda dolshna polychatcay s dlinoy 10
0
|
1 / 1 / 0
Регистрация: 27.12.2007
Сообщений: 157
|
|
13.03.2008, 08:45 | 5 |
Function zero(nn, OutLen As Integer)
zero = String(OutLen - Len(nn), '0') & nn End Function ?zero(17,10) 0000000017
0
|
13.03.2008, 12:30 | 6 |
Имеется такая функция Format. В MSDN приводятся примеры. Среди них такие:
mystr = Format(5459.4, '##,##0.00') ' Returns '5,459.40'. mystr = Format(334.9, '###0.00') ' Returns '334.90'. А от себя добавлю mystr = Format('0017', '0000000000') ' Returns '0000000017'.
0
|
13.03.2008, 12:30 | |
13.03.2008, 12:30 | |
Помогаю со студенческими работами здесь
6
Бесконечный массив Dim myStr(0 To Num) Объявить переменные через оператор Dim TreeView/ Dim x as node x=treeview1.Nodes(...) do until x=Nothing x=x.Next loop Кaк мoжнo oбъявить мaссив dim array(X) ? Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |