VB на Linux Gambas

[ogent]

Всем привет) столкнулся с проблемой написания программ под linux. Решил остановиться на Gambas, с виду больше всего понравился.
Мне нужно написать простенькую программу которая вырезает первую строку из одного файла и вставляет её в последнюю строку второго файла.
Предполагаю что должно быть что-то вроде этого:

Код: Выделить всё

dim f as long
dim A
private sub ABC ()
f = freefile

open "/home/1.txt" for input as f
'здесь как-то вырезать первую строку
close f

A = 'вырезанная строка

open "/home/2.txt" for input as f
'здесь в конец файла вставляем A
close f

end sub


Но думаю в гамбасе код как-то отличается) Может кто подскажет код, буду очень благодарен)

[iGrok]

Этот форум по VB, а не по Gambas. Вряд ли кто-то тут сможет тебе помочь.

[ogent]

жаль(

[ogent]

а какой код будет на VB?

[iGrok]

Набросал по памяти:

Код: Выделить всё

Dim sLine as String, f as Long

f = FreeFile
Open <filename1> For Input As f
Line Input #f, sLine
Close f

Open <filename2> For Append As f
Print #f, sLine
Close f


[ogent]

Пасибки) буду тестить)

[ogent]

вот код на гамбасе, может кому пригодиться)

Код: Выделить всё

' Gambas class file
PUBLIC SUB Form_Open()

DIM File1 AS Stream
DIM File2 AS Stream
DIM stroka AS String

File1 = OPEN "/home/admin/1.txt" FOR INPUT
LINE INPUT #File1, stroka

File2 = OPEN "/home/admin/2.txt" FOR WRITE APPEND
WRITE #File2, stroka

CLOSE #File1
CLOSE #File2

ME.Close
END


Правда там строчка со знаком доллара, пока не знаю почему, но думаю разберусь)
Пасибки за помощь)