Передача оператору Put массива

[Source]

Я делаю функцию записи в файл с обработкой ошибки и мне надо передать ей операнд данных для записи. В основном требуется 1 элемент массива User Type. Можно сделать более универсально, захватив другие типы. Как это будет выглядеть? Также интересно, как получить по hFile полный путь к файлу, чтобы не тягать пути к открытым файлам в программе? Вот что я пока написал:

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

Public Sub MyWriteFile(ByVal hFile As Integer, Optional NumRec As Long = -1)
Dim Res As Long, NameFile As String, Drive As String
    On Error GoTo errWrite
fWrite:
    If NumRec > 0 Then
     put hFile, numrec,
    Else
     put hFile, ,
    End If
   
    Exit Sub
   
errWrite:
    Drive = Mid(NameFile, 1, 2)
    Res = MsgBox("Ошибка записи в файл " & NameFile & "! Возможно, на диске '" & Drive & "' нет свободного места. Освободите место и нажмите 'OK' для повторной записи или нажмите 'Отмена' для продолжения работы без записи данных (данные будут утеряны!)", vbExclamation + vbOKCancel, NamePrg)
    If Res = vbOK Then Resume fWrite Else Exit Sub
End Sub


[Хакер]

Source
There are no oparator 'Get' in the Visual Basic.

И он бы там был если бы запись вида
a = b Get c
a = Get c
a = b Get

была нормальной, но её там нет.

Можно сделать более универсально, захватив другие типы. Как это будет выглядеть?

(Тут я попробовал понять код, но не понял его)

Также интересно, как получить по hFile полный путь к файлу, чтобы не тягать пути к открытым файлам в программе?

Ну так не тягай. hFile для того и придуман. Кстати h в неём - одно название.

[SSecurity]

В основном требуется 1 элемент массива User Type. Можно сделать более универсально, захватив другие типы. Как это будет выглядеть?

Нуууу ... для начала привет, по поводу своего типа - тебе прийдется под свой тип данных делать функцию отедельную ...

Например у тебя тип

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


Type myType
  Name as string
  Value as Long
End Type


Ты передаешь его в свою функцию обработки:

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


Sub WriteToFile(ByVal hFile as Integer, byVal RecPos as long, ByVal DATA as myType)
  On Error resume next
  PUT #hFile, RecPos, DATA.Name & DATA.Value
  '## в файл пишем все в Variant
End Sub


вроде так - не проверял.

[SSecurity]

а для универсальности - передавай DATA в Variant ... предварительно разбамбливай любые типы до варианта

По крайней мере функции для перебора свойств юзерских типов данных я не встречал, если она есть буду рад узнать ....
так вот если есть - то тогда с ЕЁ помощью перебираешь свойства ... потом все сводишь к варианту или стрингу и все - будет тогда тебе униерсал:)

с Уважением,
Сергей

[Source]

Хакер:
1. не понял, что за Get?

2. если написать

Public a(1) As struMy
Public Type struMy
a1 As Byte
a2 As Long
End Type


Public Sub MyWriteFile(ByVal hFile As Integer, Dat as Variant, Optional NumRec As Long = -1)
...

то
MyWriteFile hFile, a(1), 2
вызовет ошибку
Compile error:
Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions

так как писать Dat as ?

3. Есть ф-я, которая вернёт полный путь к файлу по hFile вроде
NameFile=GetFilePath(hFile)?

[SSecurity]

Source
Тебе написали,
Уважаемый, Source, пожалуйста, не поленись добавить модуль к проекту и в нем описать ПУБЛИЧНЫЙ тип данных ... только его можно передать в качестве параметра к функции (от автора: или функцию сделай Private)

С Уважением,
Сергей

[Source]

так всё и так публично описано в модуле

[SSecurity]

И модуль должен быть объектом )) ...

извиняюсь .... не в простом модуле:))
т.е. ФОРМА, DLL и т.д.

[Хакер]

не понял, что за Get?

Ну, Put.

There are no operator 'Put' in the Visual Basic.
И далее по аналогии.

И модуль должен быть объектом )) ...

Модуль должен быть классом.

Перевод неправильный. Вот правильный перевод:

Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions

Только user-defined типы, определённые в Public объектных модулях могут быть преобразованы в/из Variant или передаваться в функции, использующие позднее связывание.

[Source]

смотрел коды ошибок:
61 Disk ftill Переполнение диска
3026 Not enough space on disk Недостаточно места на диске
У меня в тесте возникает ошибка 61. Когда возникает 3026?

[Хакер]

ftill

Каюхстан?

[Source]

Яблокитай Ну выдаёт full, но на неком сайте описания ошибок ftill.
Когда возникает 3026?

[Source]

видать распознавалка вместо "u" распознала "ti"

[Хакер]

Source
Да-да, у нас такое тоже было - Казахстан всегда распознавался как Кюахстан или Каюхстан.

А также:
http://share.fire-lines.ru/hacker/kuahstan_resave.png
http://share.fire-lines.ru/hacker/gashish.png