Форумы GIS-Lab.info

27 янв 2014, 09:41
сделаны 1835, 1836. 105 из 1785. 6%

dim txtfile,name,linestr,str,adr_uik,adr_sost,placev_v as string
dim uikv as smallint,ignor as logical


txtfile=FileOpenDlg("","Файл","txt","Открыть файл")
open file txtfile for input as #1 Charset "WindowsCyrillic"
run command "create table "+left$(pathtofilename$(txtfile),len(pathtofilename$(txtfile))-4)+" (auto_code smallint,tik char(100),tik_id smallint,uik smallint,addr_v char(100),place_v char(100),phone_v char(50),addr_o char(100),place_o char(100),phone_o char(50),territory char(400),comment char(100),g_status char(50)) file "+chr$(34)+left$(txtfile,len(txtfile)-4)+chr$(34)+" type native"
name=pathtotablename$(txtfile)



do
Line Input # 1,linestr
linestr=ltrim$(rtrim$(linestr))
if instr(1,linestr,"Избирательный участок")<>0 and instr(1,linestr,"№")<>0 then

if uikv<>0 then
insert into name (auto_code,tik,tik_id,uik,addr_v,place_v) values (56,"ТИК Соль-Илецкого района",1790,uikv,adr_uik,placev_v)
end if

uikv=val(mid$(linestr,instr(1,linestr,"№")+1,7))

Line Input # 1,linestr
linestr=ltrim$(rtrim$(linestr))
placev_v=linestr

Line Input # 1,linestr
linestr=ltrim$(rtrim$(linestr))
adr_uik=linestr
end if

loop while eof(1)<>1



end program