+
1 2 2

:

  1. #1
    photocanon       photocanon
    02.06.2007
    68
    ()
    0
    : 0 (: 0).

    , visual basic


  2. #2
    Lindows       Lindows
    31.08.2007
    172
    ()
    0
    : 0 (: 0).

    :
    '******************************
    '                                               
    '******************************
    
    '  
    nFileHandle=FreeFile
    '  
    Open "C:\TEST.BIN" For Binary As #nFileHandle
    '   20 
    String=String(20," ")
    ' 20    50 
    Get #nFileHandle, 50, MyString
    ' 
    Close nFileHandle
    
    '    
    '   Get      Do While...Loop,
    '   str1     
    '  str2:
    
    Do While Not EOF (nFileHandle)
        Get #nFileHandle, str1
        str2=str2 & str1
    Loop
    
    
    
    '*******************************
    '       
    '*******************************
        Dim FileName As String
        Dim Str, Str2 As String
        Str = Text1.Text
        '      Str  
        FileName = "C:\proba.txt"
        Open FileName For Output As 1
        Print #1, Str
        Close 1
    '*******************************
    '      
    '*******************************
        Open FileName For Input As 1
        Str2 = Input(LOF(1), 1)
        Text2.Text = Str
        Close 1