ƒtƒ@ƒCƒ‹ Žw’èƒpƒX‚̃tƒ@ƒCƒ‹‚ɒljÁA‘ž(ƒV[ƒPƒ“ƒVƒƒƒ‹)

‚u‚a•‚u‚a‚`
FROG ‚Ó‚ë‚Á‚®
 
  • ƒIƒvƒVƒ‡ƒ“

    –{•¶ˆóü

    ‚¨‹C‚É“ü‚è‚ɒljÁ

  • ŒŸõ

    Googlewwwjp-ia
    @

    Googlewwwjp-ia
    @
  • î•ñ

  • ŠÖ˜A

[‚u‚a•‚u‚a‚`][ƒtƒ@ƒCƒ‹ Žw’èƒpƒX‚̃tƒ@ƒCƒ‹‚ɒljÁA‘ž(ƒV[ƒPƒ“ƒVƒƒƒ‹)]
Option Explicit


Sub FileOutpuAppSin(ByVal TxtPath As StringByVal Character As String)
'******************************************************
'Žw’èƒpƒX‚̃tƒ@ƒCƒ‹‚ɒljÁA‘ž(ƒV[ƒPƒ“ƒVƒƒƒ‹)
'******************************************************

Dim FileNumber As Integer
    FileNumber = FreeFile
    Open TxtPath For Append As #FileNumber
        Print #FileNumber, Character
    Close #FileNumber

'---------------------------------------------------------
'y\•¶z
'Open [PathName] For [Mode] [Access] [lock] As #[FileNumber]

'[Mode]
'„¡„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¢
'„ [Mode]„ [ˆ—]            „ [ƒ‚[ƒh]              „ 
'„¥„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„§
'„ Input „ “ǂݍž‚Ý          „ “ü—̓‚[ƒh            „ 
'„ Output„ ‘‚«ž‚Ý          „ o—̓‚[ƒh            „ 
'„ Append„ ‘‚«ž‚Ý          „ ’ljÁƒ‚[ƒh            „ 
'„ Random„ “ǂݍž‚Ý/‘‚«ž‚Ý „ ƒ‰ƒ“ƒ_ƒ€ƒAƒNƒZƒXƒ‚[ƒh„ 
'„ Binary„ “ǂݍž‚Ý/‘‚«ž‚Ý „ ƒoƒCƒiƒŠƒ‚[ƒh        „ 
'„¤„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£
'[Access]
    'Read,Write,Read Write
'[lock]
    'Shared,Lock Read,Lock Write,Lock Read Write
'[FileNumber]
    'Should Use a FreeFileŠÖ”

'---------------------------------------------------------
'y\•¶z
'Get #[FileNumber],[Recnumber],[Varname]
'Put #[FileNumber],[Recnumber],[Varname]
'[Recnumber]
    'ƒoƒCƒgˆÊ’u
'[Varname]
    'Ši”[‚·‚é•Ï”–¼

'---------------------------------------------------------
'Space([Number])
'Žw’肵‚½”‚̃Xƒy[ƒX‚©‚ç‚Ȃ镶Žš—ñ‚ð•Ô‚·•¶Žš—ñˆ—ŠÖ”¡
'[Number]
    'ƒXƒy[ƒX‚̐”‚ðŽw’肵‚Ü‚·
'[EOF] ŠÖ” ƒtƒ@ƒCƒ‹‚Ì––”ö‚ðŽæ“¾
'[LOF] ŠÖ” ƒtƒ@ƒCƒ‹‚Ì’·‚³‚ðƒoƒCƒg’PˆÊ‚ÅŽ¦‚·
'[Line] s‘S‘Ì‚ð“ǂݍž‚Ý
'[Print] ƒtƒ@ƒCƒ‹‚Ƀf[ƒ^‚ð‘‚«ž‚Þ
'[Seek] ŽŸ‚ɓǂݍž‚Ý‚Ü‚½‚͏‘‚«ž‚Ý‚ðs‚¤ˆÊ’u‚ðÝ’è
'„¡„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¢
'„ ‹L†„ “à—e                   @ „ 
'„¥„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„§
'„ s   „ ƒV[ƒPƒ“ƒVƒƒƒ‹(Sequential)„ 
'„ b   „ ƒoƒCƒiƒŠ(Binary)          „ 
'„ ’P  „ —ñ–ˆ                      „ 
'„ ‘S  „ ‘S•”                      „ 
'„ Žš  „ •¶Žš’PˆÊ                  „ 
'„ —ñ  „ —ñ’PˆÊ                    „ 
'„ “Ç  „ “Ǎž                      „ 
'„ ’Ç  „ ’ljÁ                      „ 
'„ V  „ V‹K                      „ 
'„¤„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£

'„¡„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¢
'„       „ s’P“ÇŽš „ s’P“Ç—ñ „ s‘S“Ç „ b‘S“Ç „ 
'„¥„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„§
'„ Open  „ ›      „ ›      „ ›    „ ›    „ 
'„ Input „ ›      „ ›      „ ›    „       „ 
'„ EOF   „ ›      „ ›      „ ›    „       „ 
'„ Line  „         „ ›      „       „       „ 
'„ Binary„         „         „       „ ›    „ 
'„ Get   „         „         „       „ ›    „ 
'„ Append„         „         „       „       „ 
'„ Print „         „         „       „       „ 
'„ LOF   „         „         „       „       „ 
'„ Seek  „         „         „       „       „ 
'„ Put   „         „         „       „       „ 
'„ Output„         „         „       „       „ 
'„¤„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„£
'„¡„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„¢
'„       „ s‘S’Ç „ b’P’Ç „ s’PV „ b’PV „ s‘SV „ b‘SV „ 
'„¥„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„§
'„ Open  „ ›    „ ›    „ ›    „ ›    „ ›    „ ›    „ 
'„ Input „       „       „       „       „       „       „ 
'„ EOF   „       „       „       „       „       „       „ 
'„ Line  „       „       „       „       „       „       „ 
'„ Binary„       „ ›    „       „ ›    „       „ ›    „ 
'„ Get   „       „       „       „       „       „       „ 
'„ Append„ ›    „       „       „       „       „       „ 
'„ Print „ ›    „       „ ›    „       „ ›    „       „ 
'„ LOF   „       „ ›    „       „       „       „       „ 
'„ Seek  „       „ ›    „       „       „       „       „ 
'„ Put   „       „ ›    „       „ ›    „       „ ›    „ 
'„ Output„       „       „ ›    „       „ ›    „       „ 
'„¤„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„£


End Sub


Private Sub test()
Dim Character As String
Dim i As Long, pth As String
pth = ThisWorkbook.Path & "\" & "test.txt"

For i = 0 To 1
Character = Character & "FileOutpuAppSin"
Next i

Call FileOutpuAppSin(pth, Character)

'22222222222
'«
'22222222222
'FileOutpuAppSinFileOutpuAppSin

End Sub





Production Japan Import Application. Since 1998