Галактика в вопросах и ответах

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

<<каталог Галактики>>vip.exe lot.lot /c:russia81.cfg

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

table struct local wialonprobeg  //ключевое слово для задания имени физической таблицы, которая является корневой для данного видимого элемента   Признак главного (внешнего) цикла по SQL-таблице. Используется в конструкции ".table blank".
   (nrec:comp,
    Tmarka:string,
    probeg:double,
    probegs:double )

    with index (uniqal=nrec);  // задаем индекс

Interface Wialon 'Импорт данных с Wialon' EscClose;   //начало описания интерфейса.

show at (,,,);   //ключевое слово для задания размеров видимых элементов и окон.

var  FileName:string;      // раздел объявления переменных.
 f_Tmarka:string; f_probeg:double; f_probegs:double;

create view   //начало описания логической таблицы.
 as
 select *//Поле
 from wialonprobeg; //из таблицы

 File gfFile;

function MyFuncLoadField:string;
{
      var str:string;
      var ch:char;
      str:='';
      ch:=chr(0);

      while ch=chr(10) or ch=chr(13) or ch=';' or ch=chr(0) do
      {
          //if gfFile.EOF() break;
          gfFile.Read(ch);
      }
      while ch<>chr(10) and ch<>chr(13) and ch<>';' do
      {
          //message(string(ch));
          //message(str);
          str:=str+ch;
          //if gfFile.EOF() break;
          gfFile.Read(ch);
      }
      result:=str;

}


procedure LoadFile;
{
      gfFile.OpenFile(filename, stOpenRead);
      var chek:integer;
      chek:=0;
      while not gfFile.EOF() do
      {
          chek :=chek+1;
          if chek=10 then break;

          f_Tmarka:=MyFuncLoadField();
          f_probeg:=MyFuncLoadField();
          f_probegs:=MyFuncLoadField();


          insert current wialonprobeg set
              wialonprobeg.Tmarka  := f_Tmarka,
              wialonprobeg.probeg := f_probeg,
              wialonprobeg.probegs := f_probegs;

      }

      gfFile.Close();
}

screen vibor; // вид окна
  show (,,,);
 fields
 FileName :pickButton;
 buttons
 cmBounds;

  <<
      Выбор файла: .@@@@@@@@@@@@@
      <. Загрузка .>

  >>
  end;

browse tab;
show at(,,,)
  table wialonprobeg;

fields
    Tmarka  #3'Марка' ('Марка ТС',,) : [20], protect;
    probeg #3'Пробег' ('Пробег ТС',,) : [20], protect;
    probegs #3'Скорректированный пробег' ('Скорректированный пробег ТС',,) : [20], protect;

end;

//Panel TR;
//Show At (,,,)



handleEvent         //обработчик событий

cmInit:
{

}
cmPick:
  {
    Case CurField of
        #FileName :
        {
          FileName := GetFileName ('*.csv','Выберите файл с отчетом Wialon');
           Message(filename);
                 LoadFile();
                 ReReadRecord(tnwialonprobeg);
        };

    end;   //Case
  }
end;

end.

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

BEGIN TRANSACTION
SET QUOTED_IDENTIFIER ON
SET ARITHABORT ON
SET NUMERIC_ROUNDABORT OFF
SET CONCAT_NULL_YIELDS_NULL ON
SET ANSI_NULLS ON
SET ANSI_PADDING ON
SET ANSI_WARNINGS ON
COMMIT
BEGIN TRANSACTION
GO
CREATE TABLE dbo.A$WialonProbeg
	(
	nrec binary(8) NOT NULL,
	Tmarka varchar(50) NULL,
	Probeg numeric(18, 0) NULL,
	ProbegS numeric(18, 0) NULL
	)  ON [PRIMARY]
GO
COMMIT

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

  kolstr:=0 ;
  chet:=0 ;
  kolfield:=0 ;
  wstr:='' ;
  filesize_read:=0 ;
  filesize:=SInp.GetSize
  SInp.Seek(0) ;
  While not SInp.EOF and (filesize_read<filesize)
  {   hprt1 :='' ;
      inc(chet)
      if chet>1000 then break ;
      if chet mod 10=0 then nextvisual ; 
//      SInp.readln(hprt1) ;
      SInp.Seek(filesize_read) ;
      SInp.read(hprt1) ;
      if length(hprt1)=0 then break ;
      filesize_read:=filesize_read+length(hprt1) ;
      field_len:=length(hprt1) ;
      if filesize_read>filesize 
      { field_len:=field_len-(filesize_read-filesize) ;
      }
      wstr1:=''
      for(i:=1;i<=field_len;inc(i))
      { 
        If(((IEHead.Reestr And mskDOS)Shr 04h) = 1)
          wstr1:=wstr1+DocBasFn1251To866(substr(hprt1,i,1));
        else  
          wstr1:=wstr1+substr(hprt1,i,1)
      }
// здесь не надо конвертировать      
//      If(((IEHead.Reestr And mskDOS)Shr 04h) = 1)
//        hprt1 := DocBasFn1251To866(hprt1);
      mylog('строка '+string(chet)+',Длина '+string(field_len)) ;
      mylog(wstr1) ;
//      if chet=1 then continue ; // первая строка не нужна.
//      hprt1:=trim(hprt1) ;  
      for(i:=1;i<=length(hprt1);inc(i))
      { if substr(hprt1,i,1)=';'
        or ord(substr(hprt1,i,1))<20 //=chr(13)
        { // конец строки 2 символами 13+10
          if ord(substr(hprt1,i,1))<20 and i>0
          { if ord(substr(hprt1,i-1,1))<20 
            or substr(hprt1,i-1,1)=';'
            then continue ;
          }
          // погасить вывод на пустых строках
          //if kolfield>0 or ord(substr(hprt1,i,1))>20
          PutTofile1 ;
          
          if ord(substr(hprt1,i,1))<20 and (kolfield>0 and kolfield<30)
          { kolfield:=kolfield-1 ;
          }
        }
        else
         wstr:=wstr+substr(hprt1,i,1)
      }
  } ;   
  //if wstr<>''