| |
 8 Кб. |
|
| | Добрый день всем! Нуждаюсь в помощи: не могу найти решение. Проблема заключается в следующем: форме, текстовом боксе записываю текст из двух слов и нажимаю “Enter”. В моей задумке первое слово должно появиться во втором текстовом боксе, а второе слово, соответственно, в третьем боксе. Может кто-то может помочь реализовать идею. Заранее благодарю. Для ясности сказанных слов прилагаю пример. | |
| |
| |
| |
|
|
| | ф-цией split разделять на массив по пробелу. И заносить в поля элементы массива.
ЗЫ пример не смотрел, не могу скачать. | |
| |
| |
| |
|
|
| | Уважаемый FORMAT, не могли бы вы показать в виде примера, мне было бы понятнее, заранее благодарю, с уважением. | |
| |
| |
| |
10 Кб. |
|
| | если уверен что слов два.
то на сво-во После обновления вешай
Private Sub Name_full_AfterUpdate()
str_ = Me.Name_full
kol = InStr(str_, " ")
Me.Name_sur = Mid(str_, 1, kol - 1)
Me.Name_given = Trim(Mid(str_, kol))
Me.Name_given.Requery
Me.Name_sur.Requery
End Sub
пример засунул, во
п.с. посмотрел на время - да у Вас уже 17:00 а унас еще 16:00  | |
| |
| |
| |
|
|
| | Dim a() As String
a() = Split(Me.Поле4, " ")
Me.Поле0 = a(0)
Me.Поле2 = a(1)
В поле4 вписываете фразу. Она разделяется и записывается в поле0 и поле2 | |
| |
| |
| |
|
|
| | Это то, что надо. Благодарю! | |
| |
| |
| |
|
|
| | Format, а что за функция Split(), посмотрел в хелпе Акса нет, как в прочем и Replace(), хотя Акс понимает. Откуда они? может там еще есть куча хорошего, а я не в курсе, жаба давить начинает. | |
| |
| |
| |
|
|
| | Это ф-ции вижуал бэйсика
Split Function
Description
Returns a zero-based, one-dimensional array containing a specified number of substrings.
Syntax
Split(expression[, delimiter[, limit[, compare]]])
The Split function syntax has these named arguments:
Part Description
expression Required. String expression containing substrings and delimiters. If expression is a zero-length string(""), Split returns an empty array, that is, an array with no elements and no data.
delimiter Optional. String character used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.
limit Optional. Number of substrings to be returned; –1 indicates that all substrings are returned.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.
|
Replace Function
Description
Returns a string in which a specified substring has been replaced with another substring a specified number of times.
Syntax
Replace(expression, find, replace[, start[, count[, compare]]])
The Replace function syntax has these named arguments:
Part Description
expression Required. String expression containing substring to replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If omitted, the default value is –1, which means make all possible substitutions.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.
|
| |
| |
| |
| |
|
|
| | понятно, спасибо. будем искать  | |
| |
| |
| |
|
|
| | Текое подозрение, что вы работаете с аксом2000 или моложе, а Help читаете от акса97.  | |
| |
| |
|
|
| |
|
|
| | рідній мові = это нада силыча спросить - можа у нёго iсть | |
| |
| |
