работа сфайлами

[kashey]

как програмно изменить только одну строчку в файле?
например первую

[Алекс]

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

Privatr Sub Zamena(Number_of_String as integer,_
Path_to_File as string, My_String)
Open Path_to_File for Input as #1
  Dim a, b, c,  as string
  dim d as integer
  Do Until EOF(1)
   d=d+1
   line input #1, a
   If  d<Number_of_String then
   b=b & a
   Elseif d>Number_of_String then
   c=c & a
   else
   end if
  Loop
close #1
Open Path_to_File for output as #1
  Print #1, b
  Print #1, My_String
  Print #1, c
close #1
end sub

Если так не пойдёт надо добавлять разделители в конце строки