LibreOffice 7.5 Help
рдЦреБрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдЦреБрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рдХреЛ рдкрд╣реБрдБрдЪ рдореЛрдб рд╡рд╛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред рдпреЛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реА(OSH = Operating System Handle)рдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред
рдпрджрд┐ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реА рейреи-рдмрд┐рдЯ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рддрдкрд╛рдИрдБ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░рдХреЛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ FileAttr-рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрди ред
рдпреЛ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН: рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН
FileAttr (рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░, рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдЗрдиреНрдЯрд┐рдЬрд░)
рдЗрдиреНрдЯрд┐рдЬрд░
рдлрд╛рдЗрд▓ рдирдореНрдмрд░:рддреА рдЦреБрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдЦреБрд▓рд┐ рд╕рдХреЗрдХрд╛ рдлрд╛рдЗрд▓рдХреЛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рд╣рд░реВ ред
рд╡рд┐рд╢реЗрд╖рддрд╛:рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рддрдкрд╛рдИрдБрд▓реЗ рдЪрд╛рд╣реЗрдорд╛ рдлрд░реНрдХрд╛рдЙрди рд╕рдХреНрдиреЗ рд╕реВрдЪрдирд╛ рдлрд╛рдЗрд▓рдХреЛ рдкреНрд░рдХрд╛рд░ рджрд░реНрд╢рд╛рдЙрджрдЫ ред рджрд┐рдПрдХрд╛ рдорд╛рдирд╣рд░реВ рд╕рдореНрднрд╡ рдЫрдиреН:
рез: FileAttr-рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдлрд╛рдЗрд▓рдХреЛ рдкрд╣реБрдБрдЪ рдореЛрдб рджрд░реНрд╢рд╛рдЙрджрдЫ ред
реи: FileAttr-рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реАрдХреЛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рез рдХреЛ рдорд╛рди рд╕рдБрдЧ рдкрд░рд╛рдорд┐рддрд┐ рд╡рд┐рд╢реЗрд╖рддрд╛рд╣рд░реВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреБ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рджрд┐рдПрдХрд╛ рдлрд┐рд░реНрддрд╛ рдорд╛рдирд╣рд░реВ рд▓рд╛рдЧреВ рдЧрд░реНрдиреБрд╣реЛрд╕реН:
рез - INPUT (рдЖрдЧрддрдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)
реи - OUTPUT(рдирд┐рд░реНрдЧрддрдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)
рек - RANDOM(рдЕрдирд┐рдпрдорд┐рдд рдкрд╣реБрдБрдЪрдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)
рео - APPEND (рдЬреЛрдбреНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)
рейреи - BINARY (рдмрд╛рдЗрдирд░реА рдореЛрдбрдорд╛ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)
Sub ExampleFileAttr
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
#iNumber, "рдпреЛ рдкрд╛рдардХреЛ рд▓рд╛рдЗрди рд╣реЛ" рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
Close #iNumber
End Sub