Оператор Line Input

Оператор Line Input

Назначение:

Читает строку из текстового файла в переменную.

Синтаксис:

Line Input [#]filenum, var_name

где

filenum – номер открытого файла, целое число; var_name – имя переменной строкового типа.

Описание:

Оператор Line Input читает текущую строку из текстового файла в переменную, объявленную как String. Текстовый файл должен быть открыт для последовательного доступа (INPUT).

Оператор Line Input читает каждую строку полностью. Если строка содержит список выражений, разделенный запятыми и Вы хотите каждое выражение присвоить отдельной переменной, то используйте оператор Input вместо Line Input.

Пример:

В нижеприведенном коде читается строка за строкой из первого файла и копируется во второй файл.

Dim str As String

Open File "original.txt" For Input As #1

Open File "copy.txt" For Output As #2

Do While Not EOF(1)

Line Input #1, str

If Not EOF(1) Then

Print #2, str

End If

Loop

Close File #1

Close File #2

Смотрите также:

Input #, Open File, Print #

Функция LocateFile$( )

Функция LocateFile$( )

Назначение

Возвращает путь к одному из служебных файлов MapInfo.

Синтаксис

LocateFile$( file_id )

file_id 0 это одно из следующих значений:

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

Строковое

Описание

Взависимости от запрашиваемого индексного значения id эта функция возвращает путь к тому месту, где MapInfo найдет этот файл. В версиях до 6.5 эти файлы большей частью устанавливались в ту же директорию, где находился файл mapinfow.exe.

Вверсии 6.5 MapInfo устанавливает эти файлы в директорию Application Data, но есть несколько других допустимых мест, включаю директорию, где находится mapinfow.exe. Приложения MapBasic не могут определить положение этих файлов, для такого определения надо использовать функцию LocateFile$().

Пример

include "mapbasic.def" declare sub main sub main

dim sGraphLocations as string

sGraphLocations = LocateFile$(LOCATE_GRAPH_DIR) Print sGraphLocations

end sub

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

Функция GetFolderPath$( )

Функция LOF( )

Функция LOF( )

Назначение:

Возвращает длину открытого файла.

Синтаксис:

LOF(file)

где file – номер открытого файла.

Величина, полученная в результате:

Целое число. Величина типа Integer.

Описание:

Функция LOF( ) возвращает размер открытого файла в байтах. Параметр file должен быть целочисленным номером файла, открытого до вызова функции оператором Open File.

Ошибки:

В результате выполнения функции может генерироваться код ошибки ERR_FILEMGR_NOTOPEN, если файл не открыт.

Пример:

Dim size As Integer

Open File "import.txt" For Binary As #1 size = LOF(1)

'

'переменная size теперь равна размеру файла,

'открытого под номером 1

'

Смотрите также:

Open File

Функция Log( )

Функция Log( )

Назначение:

Вычисляет натуральный логарифм.

Синтаксис:

Log(num_expr)

где num_expr – численное выражение.

Величина, полученная в результате:

Вещественное число. Величина типа Float.

Описание:

Функция Log( ) возвращает значение натурального логарифма от числа, полученного в результате вычисления выражения num_expr.

Функция натурального логарифма обратна функции экспоненты (число e в степени num_expr). Число e иррационально и примерно равно 2.7182818.

Логарифм может вычисляться только от положительного числа. Если num_expr есть отрицательная величина, то Log( ) функция вернет ошибку.

Вы можете вычислить логарифм и по другому основанию (например, 10), используя натуральный логарифм. Для вычисления логарифма по основанию 10 от числа n надо разделить натуральный логарифм от числа n (Log( n )) на натуральный логарифм от 10 (Log( 10 )).

Пример:

Dim original_val, log_val As Float

original_val = 2.7182818

log_val = Log(original_val)

'

'log_val будет равно 1 (приблизительно),

'т. к. число e в степени 1 (единица) равно

'2.7182818 (приблизительно)

'

Смотрите также:

Exp( )

Функция LTrim$( )

Функция LTrim$( )

Назначение:

Удаляет пробелы в начале строки.

Синтаксис:

LTrim$(string_expr)

где string_expr – строковое выражение.

Величина, полученная в результате:

Строка. Величина типа String.

Описание:

Функция LTrim$( ) возвращает строковую величину, полученную из выражения string_expr, удалением пробелов в начале строки, если они есть.

Пример:

Dim name As String

name = " Мария Анатольевна Смирнова" name = Ltrim$(name)

'

' name теперь имеет значение "Мария Анатольевна Смирнова"

'

Смотрите также:

RTrim$( )