извлечь из файла VB

Тема в разделе ".NET", создана пользователем zxxx, 4 ноя 2010.

  1. zxxx

    zxxx Постоялец

    Регистр.:
    9 окт 2009
    Сообщения:
    148
    Симпатии:
    4
    Не знаю какой точно язык используется в automate 7, просто не всегда получается запустить, а так там вроде VB

    на этом языке нужен код для того чтобы из указанного текстового файла извлечь все содержимое
     
  2. Google.com

    Google.com Читатель

    Заблокирован
    Регистр.:
    16 фев 2010
    Сообщения:
    250
    Симпатии:
    295
    Это на vb.net
    PHP:
    Dim file My.Computer.FileSystem.ReadAllText("file.txt"System.Text.Encoding.GetEncoding(1251))
    Это на vb6
    PHP:
    Dim MyFile 
    Dim S 
    As String
    MyFile 
    FreeFile
    Open 
    ("C:TEST.txt") For Input As #MyFile
    Input$(LOG(1), 1)
    Close #MyFile
    или
    PHP:
    Open "c:\temp.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, txt
    alltxt alltxt txt vbCrLf
    Loop
    Close 
    #1
    txtText.Text alltxt 
     
    zxxx нравится это.
  3. Dimitar Vladev

    Dimitar Vladev Писатель

    Регистр.:
    2 авг 2016
    Сообщения:
    10
    Симпатии:
    0
    Line Input #1, txt
    alltxt = alltxt + txt + vbCrLf
    Dim MyFile
    Dim S As String
    MyFile = FreeFile
    Close #1