Возвращает номер строки с первым вхождением символьного выражения или memo-поля в другое символьное выражение или memo-поле, считая от первой строки.

ATLINE(cSearchExpression, cExpressionSearched)

Параметры

cSearchExpression

Задает символьное выражение, которое Visual FoxPro ищет в выражении cExpressionSearched.

cExpressionSearched

Задает символьное выражение, просматриваемое в поисках cSearchExpression.

В качестве cSearchExpression и cExpressionSearched могут фигурировать memo-поля любых размеров.

Чтобы получить всю символьную строку, содержащую найденное символьное выражение, используйте функцию MLINE( ).

NoteСовет

Функция ATLINE( ) предлагает удобный способ просмотра memo-полей.

Expand imageВозвращаемое значение

Numeric

Expand imageЗамечания

Функция ATLINE( ) просматривает второе символьное выражение в поисках первого символьного выражения. При этом принимается во внимание регистр символов этих выражений. Для поиска без учета регистра используйте функцию ATCLINE( ).

Если поиск завершается успешно, функция ATLINE( ) возвращает номер строки, в которой найдено выражение. Если поиск не приводит к успеху, ATLINE( ) возвращает 0.

Номер строки, возвращаемый функцией ATLINE( ), определяется установкой SET MEMOWIDTH, даже если cExpressionSearched не является memo-полем. Для более подробной информации смотрите Команда SET MEMOWIDTH.

Expand imageПример

Пример 1 ищет первое вхождение символьной строки в memo-поле, а затем выводит на экран имя и фамилию служащего и строку memo-поля, содержащую искомую строку.

Пример 2 показывает, как ширина memo-поля влияет на ATLINE( ).
  CopyCode imageСкопировать код
* Пример 1
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee  && Open employee table

CLEAR
STORE 'Japanese' TO gcFindString  && Case sensitive
LOCATE FOR ATLINE(gcFindString, notes) != 0
? First_Name
?? Last_Name
? MLINE(notes, ATLINE(gcFindString, notes))

* Пример 2
STORE '1234567890ABCDEFGHIJ' TO gcString
SET MEMOWIDTH TO 20
? ATLINE('AB', gcString)  && Displays 1
SET MEMOWIDTH TO 10
? ATLINE('AB', gcString)  && Displays 2

Expand imageСмотрите также