Contents
Index 🔎︎

# Put# Statement

ཟིན་བྲིས་ལྟོས་བཅས་ཀྱི་ཡིག་ཆར་འབྲི་འཇུག་བྱ་བའམ་ཡིག་ཚོགས་རིམ་སྟར་གཉིས་གོང་འདྲིལ་ལུགས་ཀྱི་ཡིག་ཆར་འབྲི་འཇུག་བྱ།

Use Print# statement to print data to a sequential text file. Use Write# statement to write data to a sequential text file with delimiting characters.

### Syntax:

    Put [#]fileNum, [recordNum|filePos], variable

### Parameters:

fileNum: Any integer expression that defines the file that you want to write to.

recordNum, filePos: For relative files (random access files), the number of the record that you want to write.

གཉིས་གོང་འདྲིལ་ལུགས་ཀྱི་ཡིག་ཆ་(Binary འཚམས་འདྲི་)ལ་མཚོན་ན་ཡིག་ཆའི་ནང་ཡིག་ཚིགས་འབྲི་འཇུག་འགོ་ཚུགས་པའི་གནས་ས་ཡིན།

variable: Name of the variable that you want to write to the file.

འབྲེལ་ཡོད་ཡིག་ཆའི་ཟུར་མཆན་ གལ་སྲིད་འགྱུར་ཚད་ཀྱི་ནང་དོན་དང་ Open བརྗོད་པའི་ནང་གི་ Len ཡན་ལག་བརྗོད་པའི་ནང་གཏན་འཁེལ་བྱས་པའི་གཞི་གྲངས་ཀྱི་རིང་ཚད་ཟླ་སྒྲིལ་མི་ཐུབ་ན་གསར་དུ་འབྲི་འཇུག་བྱས་པའི་མཇུག་མཚམས་དང་རྗེས་ཀྱི་ཟིན་བྲིས་བར་གྱི་སྟོང་ཆར་གནས་ ཁྱེད་ཀྱིས་འབྲི་འཇུག་བྱེད་བཞིན་པའི་ཡིག་ཆའི་ནང་གི་ད་ཡོད་ཀྱི་གཞི་གྲངས་སྤྱད་ནས་སྟོང་གསབ་བྱའོ།

གཉིས་གོང་འདྲིལ་ལུགས་ཡིག་ཆའི་ཟུར་མཆན་ འགྱུར་ཚད་ནི་ནང་དོན་གཏན་འཁེལ་གྱི་གནས་སར་འབྲི་འཇུག་བྱ་བ་མ་ཟད་ཡིག་ཆའི་སྟོན་མདའ་ཐད་ཀར་ཆེས་མཐའ་འཇུག་གི་ཡིག་ཚོགས་རྗེས་སུ་བསྒར་འཛུད་བྱ། ཟིན་བྲིས་བར་བར་སྟོང་འཇོག་མི་དགོས།

### Example:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant REM ངེས་པར་དུ་འགྱུར་ཚད་ཡིན་དགོས་
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 REM འགོ་འཛུགས་གནས་ས་
          Put #iNumber, , "This is the first line of text" ' Fill line with text
          Put #iNumber, , "This is the second line of text"
          Put #iNumber, , "This is the third line of text"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
          Put #iNumber, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Must be a variant
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Position at beginning
          Put #iNumber, , "This is the first line of text" ' Fill line with text
          Put #iNumber, , "This is the second line of text"
          Put #iNumber, , "This is the third line of text"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
          Put #iNumber, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

འབྲེལ་ཡོད་གཙོ་དོན་

Close Statement

Get Statement

Open Statement