RVC Data File@  (4GetListFile_v010}[pe$P`1X[W0W)R(u]!RVC YcSML ver2.4g *h!P@P0((0`P@P0((0P@P0((0smld_gears UUUUUUUUUUUUUUUUUUUU                                                                                                                                 P@P0((0ToolBarIcong g g  The XML000000000XML00000g /h h niyariSKj(u jn-[00000 ver0.5g g *g *IncludeSKj(u jn-[0000g *g *g *smld_gears UUUUUUUUUUUUUUUUUUUU                                                                                                                                P@P0((0ToolBarIcong +g +g +main_program% S0n00000bY0h000000L0Y~00~0Y0 g +g +g +   (7' 4@0$ 4" 4 4P 4x47 4$4" 4x447; 4x  $4" 4x4p 4Th7.|X$4." (. .`, Make List File Program # ver0.1 # # 2003.11.12 # made by Taichi FURUHASHI(OpenGIS) string tempListFileName$; tempListFileName$ = CreateTempFileName(); PopupMessage(tempListFileName$); makeListFile0000000\Ob00000g !h  h  documentation UUToolBarIconf $f $f $help% Qtn0J0J0~0K0j0fg0Y00 f $h h lPStandard Setting Script for Taichi # ver0.2 # # 2003.11.10 # made by Taichi FURUHASHI(OpenGIS) printf("-[00000000-N"); string msg$; numeric i,n,x,y,z; printf("."); string wwwToolBarIcong !g !g !networkoppy""""""UUUUUUUUUUUUUUUU333333ffffffwwwwwwUU          ToolBarIcong /g /g /Standard Setting Script for Taichi # ver0.2 # # 2003.11.10 # made by Taichi FURUHASHI(OpenGIS) printf("-[00000000-N"); string msg$; numeric i,n,x,y,z; printf("."); printf("."); printf(". 00[N\n"); Selected="false" Enabled="0" /> <label> </label> <label> </label> <label> </label> </pane> </page> <page Name="000 "> <label>S0n000000o0VW0Wtb 0}[pe$P`1X[10m0000W0W)R(u]K00 </label> <label>RVCb__n0000000h0W0f000000Y0000000g0Y00 </label> <label> </label> <label>0yr_0 </label> <label>&TNTlite g00O(ug0M0~0Y00 </label> <label>&S0n0 SML o00TNTmips ver6.8NMg0[Lg0M0~0Y00 </label> <label>&S0n0 SML o00WindowsXP, MacOSX10.3g0R\OxW0f0J00~0Y00 </label> <label>&Rvk0000000000NH0~0Y00 </label> <pane Orientation="horizontal"> <pushbutton Name="www_help" Icon="DESKTOP_NETWORK" ToolTip="S0n000000k0d0D0f0n0㉬000" OnPressed="Niyari_GoToWWW(wwwTARGETsite$);"/> <label TextAlign="Left" >! ㉬WEB000x00000!!</label> </pane> <label> </label> <label>0laN0 </label> <label>%S0n0 SML o01uk0000000QM^W0f0K0~0D0~0[00(000M^n00)0 </label> <label> _0`0W00S0n0000k0[Y00W\O)jo0>ehD0_0W0~0[000 </label> <label>%S0n0 SML k000I{n0 NwQTL0zvU00_04XT0g0M00P0RRo0W0~0Y0L00 </label> <label> \Oo000000000n0N0D0~0[000 </label> <label>%S0n0 SML 0O(uY00Ng0D0K0j00 d[L0uX0f000\Oo0NRn0N0D0~0[000 </label> <label> </label> <label TextAlign="Right">Ocke: 2004/08/26 SKj'Y0W(*h_O>yOpenGIS)</label> <label TextAlign="Right">\Obe: 2003/11/20 SKj'Y0W(*h_O>yOpenGIS)</label> </page> </book> </dialog> </root>'; dlgdoc.Parse(xml$); dlgnode = dlgdoc.GetElementByID("select_files"); dlgwin.SetXMLNode(dlgnode); ret_niyari = dlgwin.DoModal(); # 0W0000000000bW0_000Y0P0k0B}N if ( ret_niyari == -1 ) { Exit(); } Orientation="horizontal"> <label> </label> <pushbutton id="GetAFile" Name="GetAFile" Icon="DESKTOP_FILE" ToolTip="d0n000000xb... " OnPressed="Niyari_GetAFileName();" /> <edittext id="niyari_a_file_name" MaxLength="100" Width="25" ReadOnly="true" /> </pane> <togglebutton id="Select_a_folder" Name="0000Qn0Y0y0f0(0000000dO0)n00000000 !! " Selected="false" OnChanged="Niyari_TrueFalse(2);" /> <pane Orientation="horizontal"> <label> </label> <pushbutton id="GetAFolder" Name="GetAFolder" Icon="DESKTOP_FOLDER_OPEN" ToolTip="d0n000000xb... " OnPressed="Niyari_GetAFolderName();" /> <edittext id="niyari_a_folder_name" MaxLength="100" Width="25" ReadOnly="true" /> </pane> <togglebutton id="Select_a_listfile" Name="0000000K0000 !! " Selected="false" OnChanged="Niyari_TrueFalse(3);" /> <pane Orientation="horizontal"> <label> </label> <pushbutton id="GetAListFile" Name="GetAListFile" Icon="RVCOBJ_TEXT" ToolTip="Rg0(uaW0_000000000xb... " OnPressed="Niyari_GetAListFileName();" /> <edittext id="niyari_a_listfile_name" MaxLength="100" Width="25" ReadOnly="true" /> </pane> <label TextAlign="Center"> </label> </groupbox> <label TextAlign="Center"> % </label> <label TextAlign="Center"> % </label> <groupbox Name=" Output: " ExtraBorder="4"> <label>OX[HQ0000</label> <pane Orientation="horizontal"> <pushbutton Name="GetOutFolder" Icon="DESKTOP_FOLDER_OPEN" ToolTip="OX[HQ00000c[... " OnPressed="Niyari_GetOutFolderName();" /> <edittext id="niyari_outfolder_name" MaxLength="50" Width="25" ReadOnly="true"/> </pane> <label TextAlign="Center"> </label> </groupbox> <label TextAlign="Center"> </label> </page> <page Name="-[ "> <pane Orientation="vertical"> <togglebutton id="Setup_Abtn" Name="OX[P}g0'W.~Y00 k dj0W0 " Selected="false" Enabled="0" /> <togglebutton id="Setup_Bbtn" Name="0000000R\ObY00 " Selected="false" Enabled="0" /> <togglebutton id="Setup_Cbtn" Name="^j`1X0KbR-[Y00 "ssage(" Niyari2 "); } if (tf == 3){ tf3_flag = -1 * tf3_flag; dlgwin.GetCtrlByID("Select_a_file").SetValueStr("false"); dlgwin.GetCtrlByID("GetAFile").SetEnabled(0); dlgwin.GetCtrlByID("niyari_a_file_name").SetEnabled(0); dlgwin.GetCtrlByID("Select_a_folder").SetValueStr("false"); dlgwin.GetCtrlByID("GetAFolder").SetEnabled(0); dlgwin.GetCtrlByID("niyari_a_folder_name").SetEnabled(0); if (tf3_flag > 0){ dlgwin.GetCtrlByID("Select_a_listfile").SetValueStr("true"); }else{ #dlgwin.GetCtrlByID("Select_a_listfile").SetValueStr("false"); } dlgwin.GetCtrlByID("GetAListFile").SetEnabled(1); dlgwin.GetCtrlByID("niyari_a_listfile_name").SetEnabled(1); select_input_FFL = 3; #PopupMessage(NumToStr(select_input_FFL)); #PopupMessage(" Niyari3 "); } return (0); } func Niyari_GetAFileName(){ niyari_FileName$ = GetInputFileName("", " 0000000d0xbW00/+0000bW0f0O0`0U0D0 ", ext_niyari$); dlgwin.SetCtrlValueStr( "niyari_a_file_name", niyari_FileName$ ); return (0); } func Niyari_GetAFolderName(){ niyari_FolderName$ = GetDirectory("", " 0000000d0xbW00/+0000bW0f0O0`0U0D0 "); dlgwin.SetCtrlValueStr( "niyari_a_folder_name", niyari_FolderName$ ); return (0); } func Niyari_GetAListFileName(){ niyari_ListFileName$ = GetInputFileName("", " 0000000000d0xbW00/+0000bW0f0O0`0U0D0 ", "lst"); dlgwin.SetCtrlValueStr( "niyari_a_listfile_name", niyari_ListFileName$ ); return (0); } func Niyari_GetOutFolderName(){ niyari_OutFolderName$ = GetDirectory("", " OX[HQn000000xbor \Ob W00/+0000bW0f0O0`0U0D0 "); dlgwin.SetCtrlValueStr( "niyari_outfolder_name", niyari_OutFolderName$ ); return (0); } func Niyari_GoToWWW(url$){ RunAssociatedApplication(url$); rerurn (0); } string xml$; xml$='<?xml version="1.0"?> <root> <dialog id="select_files" Title=" 00}[pe$P`1X10m [W0W)R(u] ! RVC 0 Yc00000 version 2.4 "> <book> <page Name="0000 "> <groupbox Name=" Input: " ExtraBorder="4"> <togglebutton id="Select_a_file" Name="d0n00000000 !! " Selected="false" OnChanged="Niyari_TrueFalse(1);" /> <pane # Windows Design Script using by XML # ver1.1 # # 2003.11.20 # made by Taichi FURUHASHI(OpenGIS) clear(); class XMLDOC dlgdoc; class XMLNODE dlgnode; class GUI_DLG dlgwin; numeric tf, tf1_flag, tf2_flag, tf3_flag; tf = 0; tf1_flag = 1; tf2_flag = 1; tf3_flag = 1; numeric select_input_FFL; select_input_FFL = 0; numeric ret_niyari; ret_niyari = -999; string wwwTARGETsite$; wwwTARGETsite$ = "http://www.opengis.co.jp/htm/basic/ddi10m.htm"; func NiyariPP(){ PopupMessage(" Niyari "); return (0); } func Niyari_TrueFalse(tf){ if (tf == 1){ tf1_flag = -1 * tf1_flag; if (tf1_flag > 0){ dlgwin.GetCtrlByID("Select_a_file").SetValueStr("true"); }else{ #dlgwin.GetCtrlByID("Select_a_file").SetValueStr("false"); } dlgwin.GetCtrlByID("GetAFile").SetEnabled(1); dlgwin.GetCtrlByID("niyari_a_file_name").SetEnabled(1); dlgwin.GetCtrlByID("Select_a_folder").SetValueStr("false"); dlgwin.GetCtrlByID("GetAFolder").SetEnabled(0); dlgwin.GetCtrlByID("niyari_a_folder_name").SetEnabled(0); dlgwin.GetCtrlByID("Select_a_listfile").SetValueStr("false"); dlgwin.GetCtrlByID("GetAListFile").SetEnabled(0); dlgwin.GetCtrlByID("niyari_a_listfile_name").SetEnabled(0); select_input_FFL = 1; #PopupMessage(NumToStr(select_input_FFL)); #PopupMessage(" Niyari1 "); } if (tf == 2){ tf2_flag = -1 * tf2_flag; dlgwin.GetCtrlByID("Select_a_file").SetValueStr("false"); dlgwin.GetCtrlByID("GetAFile").SetEnabled(0); dlgwin.GetCtrlByID("niyari_a_file_name").SetEnabled(0); if (tf2_flag > 0){ dlgwin.GetCtrlByID("Select_a_folder").SetValueStr("true"); }else{ #dlgwin.GetCtrlByID("Select_a_folder").SetValueStr("false"); } dlgwin.GetCtrlByID("GetAFolder").SetEnabled(1); dlgwin.GetCtrlByID("niyari_a_folder_name").SetEnabled(1); dlgwin.GetCtrlByID("Select_a_listfile").SetValueStr("false"); dlgwin.GetCtrlByID("GetAListFile").SetEnabled(0); dlgwin.GetCtrlByID("niyari_a_listfile_name").SetEnabled(0); select_input_FFL = 2; #PopupMessage(NumToStr(select_input_FFL)); #PopupMeh # Information SML # # string msg$; msg$ = "\n\n S0n000000o0VW0Wtb 0}[pe$P0WV10m(W0W)R(u)K00"; msg$ = msg$ + "\n RVCb__n0000000h0W0f000000Y0000000g0Y00"; msg$ = msg$ + " \n\n\n"; msg$ = msg$ + " 0yr_0 \n"; msg$ = msg$ + " &TNTlite g00O(ug0M0~0Y00 \n"; msg$ = msg$ + " &S0n0 SML o00TNTmips ver6.8NMg0[Lg0M0~0Y00 \n"; msg$ = msg$ + " &Rvk0000000000NH0~0Y00 \n"; msg$ = msg$ + " \n\n"; msg$ = msg$ + " %S0n0 SML o01uk0000000QM^W0f0K0~0D0~0[000 \n"; msg$ = msg$ + " %S0n0 SML k000I{n0 NwQTL0zvU00_04XT0g0M00P0RRo0W0~0Y0L00 \n"; msg$ = msg$ + " \Oo000000000n0N0D0~0[000 \n"; msg$ = msg$ + " %S0n0 SML 0O(uY00Ng0D0K0j00 d[L0uX0f000\Oo0NRn0N0D0~0[000 \n"; msg$ = msg$ + " \n\n\n\n\n\n"; msg$ = msg$ + " 2003.11.14 SKj 'Y0W [*h_O>yOpenGIS] \Ob \n"; PopupMessage(msg$); Exit();smld_gears UUUUUUUUUUUUUUUUUUUU                                                                                                                                Information SML # # string msg$; msg$ = "\n\n S0n000000o0VW0Wtb 0}[pe$P0WV10m(W0W)R(u)K00"; msg$ = msg$ + "\n RVCb__n0000000h0W0f000000Y0000000g0Y00"; msg$ = msg$ + " \n\n\n"; msg$ = msg$ + " 0yr_0 \n"; msg$ = msg$ + " &TNTlite g00O(ug0M0~0Y00 \n"; msg$ = msg$ + " &S0n0 SML o00TNTmips ver6.8NMg0[Lg0M0~0Y00 \n"; msg$ = msg$ + " &Rvk0000000000NH0~0Y00 \n"; msg$ = msg$ + " \n\n"; msg$ = msg$ + " %S0n0 SML o01uk0000000QM^W0f0K0~0D0~0[000 \n"; msg$ = msg$ + " %S0n0 SML k000I{n0 NwQTL0zvU00_04XT0g0M00P0RRo0W0~0Y0L00 \n"; msg$ = msg$ + " \Oo000000000n0N0D0~0[000 \n"; msg$ = msg$ + " %S0n0 SML 0O(uY00Ng0D0K0j00 d[L0uX0f000\Oo0NRn0N0D0~0[000 \n"; msg$ = msg$ + " \n\n\n\n\n\n"; msg$ = msg$ + " 2003.11.12 SKj 'Y0W [*h_O>yOpenGIS] \Ob \n"; PopupMessage(msg$); Exit();.D7. $." .. .# Information SML # # string msg$; msg$ = "\n\n S0n000000o0VW0Wtb 0}[pe$P`1X[10m0000W0W)R(u]K00"; msg$ = msg$ + "\n RVCb__n0000000h0W0f000000Y0000000g0Y00"; msg$ = msg$ + " \n\n\n"; msg$ = msg$ + " 0yr_0 \n"; msg$ = msg$ + " &!qeGIS TNTlite g00O(ug0M0~0Y00 \n"; msg$ = msg$ + " &S0n0 SML o00TNTmips ver6.8NMg0[Lg0M0~0Y00 \n"; msg$ = msg$ + " &S0n0 SML o00WindowsXP, MacOSX10.3 k0f0R\O0000W0f0D0~0Y00 \n"; msg$ = msg$ + " &Rvk0000000000NH0~0Y00 \n"; msg$ = msg$ + " \n\n"; msg$ = msg$ + " %S0n0 SML o01uk0000000QM^W0f0K0~0D0~0[00(000M^n00)0 \n"; msg$ = msg$ + " FOW00W\O)jo0>ehW0~0[000 \n"; msg$ = msg$ + " %S0n0 SML k000I{n0 NwQTL0zvU00_04XT0g0M00P0RRo0W0~0Y0L00 \n"; msg$ = msg$ + " \Oo000000000n0N0D0~0[000 \n"; msg$ = msg$ + " %S0n0 SML 0O(uY00Ng0D0K0j00 d[L0uX0f000\Oo0NRn0N0D0~0[000 \n"; msg$ = msg$ + " \n\n\n\n\n\n"; msg$ = msg$ + " 2003.11.14 ver2.0 SKj 'Y0W [*h_O>yOpenGIS] \Ob \n"; msg$ = msg$ + " 2003.11.18 ver2.1 Cancel 000n0X0Qtn02Lrlh:yj0i09eo \n"; msg$ = msg$ + " 2003.11.19 ver2.2 MacOSX10.3 k0[_ \n"; PopupMessage(msg$); Exit();# Standard Setting Script for Taichi # ver0.5 # # 2003.11.19 # made by Taichi FURUHASHI(OpenGIS) printf("-[00000000-N"); ##### nfk0O0O(uY000 Ype0HQk0[W0~0Y00 # msg$ : 00000(ueW[R string msg$; # i,j,k : 000(u # n : 0000(u # x,y,x : ^j{(u numeric i,j,k,n,x,y,z; # Y0y0f000k0RgS i=0; j=0; k=0; n=0; x=0; y=0; z=0; printf("."); # b5_P[n0c[ string ext_niyari$; ext_niyari$ = "TD*"; ##### 0000000j0i00W,g`1X0B00K0X00-[W0~0Y00 # 0000GIS >yn00000000 string www_opengis$; www_opengis$ = "http://www.opengis.co.jp/index.htm"; printf("."); ##### rꁢpeg00;^n0ؚD00n0`0Q0HQk0[W0~0Y00 # 0000000000n0h:y(upe # StatusStart() : 000000h:yW0~0Y00 # StatusStop() : 000000X0~0Y00 proc StatusStart() { class StatusHandle status; class StatusContext context; status = StatusDialogCreate(); context = StatusContextCreate(status); } proc StatusStop() { StatusContextDestroy(context); StatusDialogDestroy(status); } printf(". 00[N\n"); # 0}[pe$P`1X10m[W0W)R(u] ! RVC Yc SML # ver1.1 # # 2003.11.20 # made by Taichi FURUHASHI(OpenGIS) ##### OMAJINAI clear(); string thisfile$; thisfile$ = _context.Filename; print(thisfile$); $include "Include niyari" ##### XML Setting $include "Include XML" ##### Import Mode Check #msg$ = " \n "; #msg$ = msg$ + " 00000o0 " + NumToStr(select_input_FFL) + " g0Y0m0 \n"; #msg$ = msg$ + " "; #PopupMessage(msg$); if (select_input_FFL == 0){ Exit(); } ##### Make List FIle $include "Include makeListFile" ##### Create Status Dialog StatusStart(); ### Open List File as Japanese Shift-JIS text format # Open List File # PopupMessage(tempListFileName$); listfile = fopen(tempListFileName$,"r","Shift-JIS"); # Line Counter Reset numeric lineCounter; lineCounter = 0; #################### while main loop START #################### # O(uY00eW[[ string fNAME$, dirPATH$, reg_head$, projZoneNAME$; string records$, mesh_code$, lat_code$, lon_code$; string value_temp$,region_name$; # O(uY00pe$P[ numeric lineCounter, step_num, mod_lat, mod_lon; numeric ul_lat_km, ul_lon_km, lr_lat_km, lr_lon_km; numeric numpoints; # O(uY00000[ class FILE infile_ddi; # O(uY00000[ raster LUD; while(!feof(listfile)) { lineCounter = lineCounter + 1; # Read 1 line strings of List File dirPATH$ = fgetline$(listfile); #print(lineCounter, lineBuf$); # PATH Name print ("File Path Name is ", dirPATH$); # File Name fNAME$ = right$(dirPATH$,3) + "_" + left$(right$(dirPATH$,8),4); # LU or GV if ( right$(dirPATH$,3) == "TDU" ){ step_num = 2; } else { step_num = 3; } # Region Name reg_head$ = left$(right$(dirPATH$,11),1); if ( reg_head$ == "S" ){ #print("Shuto-ken MODE"); region_name$ = "Shuto-ken MODE"; projZoneNAME$ = "Japan-19 Zone IX"; mod_lat = -30; mod_lon = -80; } else { if ( reg_head$ == "C" ){ #print("Chubu-ken MODE"); region_name$ = "Chubu-ken MODE"; projZoneNAME$ = "Japan-19 Zone VII"; mod_lat = 60; mod_lon = -80; } else{ #print("Kinki-ken MODEth.SetName(niyari_FolderName$); filenames = filepath.GetFileList( "*.TD*" ); numeric maxListnum = filenames.GetNumItems(); print(maxListnum, " 0000L0d0K00~0W0_0 "); for i=0 to maxListnum - 1 { inlineBuf$ = niyari_FolderName$ + "/" + filenames.GetString( i ) + "\n"; # 00000000000000k0ncQt n = strlen(inlineBuf$); string inlineBufW$; inlineBufW$ = ""; for ii=1 to n { if ( mid$(inlineBuf$, ii, 1)=="\\" ){ inlineBufW$ = inlineBufW$ + "/"; }else{ inlineBufW$ = inlineBufW$ + mid$(inlineBuf$, ii, 1); } } fwritestring(templistfile, inlineBufW$); } } ### 0000000000 ########################################################## if (select_input_FFL == 3){ # inListFile h0D0F0FILE0000[ class FILE inListFile; # inListFile = fopen(niyari_ListFileName$, "r"); while(!feof(inListFile)) { maxListnum = maxListnum + 1; # Read 1 line strings of List File inlineBuf$ = fgetline$(inListFile); # 00000000000000k0ncQt n = strlen(inlineBuf$); string inlineBufW$; inlineBufW$ = ""; for i=1 to n { if ( mid$(inlineBuf$, i, 1) == "\\" ){ inlineBufW$ = inlineBufW$ + "/"; }else{ inlineBufW$ = inlineBufW$ + mid$(inlineBuf$, i, 1); #printf(inlineBufW$); } } fwritestring(templistfile, inlineBufW$ + "\n"); } fclose(inListFile); } ##### Close List File ##### fclose(templistfile); ##### Delete Temp Files ##### func tempAllDELETE(){ DeleteFile(tempListFileName$); if (select_input_FFL == 2 and osCheck == 1){ DeleteFile(tempBatFile_name$); # 00000000kW0f0J0M0_0D04XTo0S0n0 N00000000W0f0O0`0U0D00 DeleteFile(tempBatFile_path$ + "\\test.lst"); } } # Make List File Program # ver1.3 # # 2004.08.26 0d0n00000 0000g0n00000000\Ob00000009eo # 2003.11.20 # made by Taichi FURUHASHI(OpenGIS) ##### OS 0000(upe checkOSniyari() ##### # 1: Windows 2: MacOSX or Linux/UNIX 9: Unknown OS # func checkOSniyari(){ numeric uCheck_niyari, vCheck_niyari, osType123_niyari; uCheck_niyari = run("uname", 0); # run uname command in background #print ("uname check = ",uCheck_niyari); vCheck_niyari = run("winver.exe", 0); # run uname command in background #print ("ver check = ",vCheck_niyari); if ( uCheck_niyari == 0 and vCheck_niyari <> 0){ osType123_niyari = 2; #print (" This OS is Mac OSX or Linux/UNIX"); }else{ if ( vCheck_niyari == 0 and uCheck_niyari <> 0){ osType123_niyari = 1; #print (" This OS is Windows "); }else{ osType123_niyari = 9; #print (" This OS is Unknown OS "); } } return(osType123_niyari); } ##### NBfvj00000000\Ob ##### # 000n0Lpe0000(u Ype maxListnum string tempListFileName$; numeric maxListnum; maxListnum = 0; # NBfv0000\Ob tempListFileName$ = CreateTempFileName(); #PopupMessage(tempListFileName$); # NBfv0000000n0000[ class FILE templistfile; templistfile = fopen(tempListFileName$,"w","Shift-JIS"); ##### 00000000T0h0k000000000\Obor000 ##### # UO0xbU00f0D0j0D04XT if (select_input_FFL == 0 or select_input_FFL > 3){ fwritestring(templistfile, "UOk00c[U00f0D0~0[00\n"); maxListnum = 1; } ### d0n00000000 ########################################################## if (select_input_FFL == 1){ # 00000000000000k0ncQt n = strlen(niyari_FileName$); string niyari_FileNameW$; niyari_FileNameW$ = ""; for i=1 to n { if ( mid$(niyari_FileName$, i, 1)=="\\" ){ niyari_FileNameW$ = niyari_FileNameW$ + "/"; }else{ niyari_FileNameW$ = niyari_FileNameW$ + mid$(niyari_FileName$, i, 1); } } fwritestring(templistfile, niyari_FileNameW$ + "\n"); maxListnum = 1; } ### d0n00000000 ########################################################## if (select_input_FFL == 2){ class FILEPATH filepath; class STRINGLIST filenames; filepa point 3 - upper right corner xsrc[3]=400; ysrc[3]=0; zsrc[3]=0; xdest[3]=lr_lon_km * 1000; ydest[3]=ul_lat_km * 1000; zdest[3]=0; #control point 4 - lower left corner xsrc[4]=0; ysrc[4]=300; zsrc[4]=0; xdest[4]=ul_lon_km * 1000; ydest[4]=lr_lat_km * 1000; zdest[4]=0; #set number of control points numpoints = 4; # now create the georef via dailog CreateControlPointGeorefFromGeoref(LUD, geonum1, numpoints, xsrc, ysrc, zsrc, xdest, ydest, zdest); # Close Input File fclose(infile_ddi); # Close Georef GeorefFree(geonum1); } #################### while main loop END ##################### ##### Close listfile fclose(listfile); ##### Exit Process StatusStop(); tempAllDELETE(); msg$ = " QtL0B}00~0W0_0 \n"; msg$ = msg$ + "\n"; msg$ = msg$ + " Yc_n0000o0N Nn00000k0OX[U00~0W0_00 \n"; msg$ = msg$ + " " + outdirPATH$; PopupMessage(msg$); beep(); Exit(); "); region_name$ = "Kinki-ken MODE"; projZoneNAME$ = "Japan-19 Zone VI"; mod_lat = 90; mod_lon = -120; } } ############################################# # Set Map Projection geonum1 = GeorefAlloc(); class MAPPROJ projection; projection.System = "Japan-19 Plane Orthogonal"; projection.Zone = projZoneNAME$; #projection.Name = "Transverse Mercator"; projection.Datum = "Tokyo - Japan"; GeorefSetProjection(geonum1,projection); #georef = GeorefGetParms(geonum1); #print("dirPATH\$",dirPATH$); msg$ = "\n"; msg$ = msg$ + region_name$ + "\n"; msg$ = msg$ + projZoneNAME$ + "\n"; msg$ = msg$ + "\n"; msg$ = msg$ + dirPATH$ + "\n"; msg$ = msg$ + "k0 " + NumToStr(maxListnum - lineCounter) + "0000 \n"; StatusSetMessage(context, msg$); #StatusSetMessage(context); infile_ddi = fopen( dirPATH$, "r", "Shift-JIS"); outdirPATH$ = niyari_OutFolderName$ + "\\DDI10m.rvc"; CreateRaster(LUD,outdirPATH$,fNAME$,"0}[pe$P`1X[10m0000W0W)R(u]",300,400,"8-bit unsigned"); array record_value[400]; for j=1 to 300 begin records$ = fgetline$(infile_ddi); mesh_code$ = left$(records$,4); lat_code$ = left$(records$,2); lon_code$ = mid$(records$,3,2); for k = 1 to 400 begin value_temp$ = mid$(records$,8+(k-1)*step_num,step_num); record_value[k] = StrToNum(value_temp$); #printf("value is %dn",record_value[k]); LUD[j,k] = record_value[k]; end end #attach georef array xsrc[4], ysrc[4], zsrc[4]; array xdest[4], ydest[4], zdest[4]; ul_lat_km = -1 * ( 3 * StrToNum(lat_code$) + mod_lat ); ul_lon_km = ( 4 * StrToNum(lon_code$) + mod_lon ); lr_lat_km = ul_lat_km - 3; lr_lon_km = ul_lon_km + 4; #control point 1 - upper left corner xsrc[1]=0; ysrc[1]=0; zsrc[1]=0; xdest[1]=ul_lon_km * 1000; ydest[1]=ul_lat_km * 1000; zdest[1]=0; #control point 2 - lower right corner xsrc[2]=400; ysrc[2]=300; zsrc[2]=0; xdest[2]=lr_lon_km * 1000; ydest[2]=lr_lat_km * 1000; zdest[2]=0; #control; } #while(!feof(inListFile)) { # maxListnum = maxListnum + 1; # # Read 1 line strings of List File # inlineBuf$ = niyari_FolderName$ + "/" + fgetline$(inListFile) + "\n"; # # # 00000000000000k0ncQt # n = strlen(inlineBuf$); # string inlineBufW$; # inlineBufW$ = ""; # for i=1 to n { # if ( mid$(inlineBuf$, i, 1)=="\\" ){ # inlineBufW$ = inlineBufW$ + "/"; # }else{ # inlineBufW$ = inlineBufW$ + mid$(inlineBuf$, i, 1); # } # } # fwritestring(templistfile, inlineBufW$); #} #fclose(inListFile); } ############################################################# ### 0000000000 ### if (select_input_FFL == 3){ # inListFile h0D0F0FILE0000[ class FILE inListFile; # inListFile = fopen(niyari_ListFileName$, "r"); while(!feof(inListFile)) { maxListnum = maxListnum + 1; # Read 1 line strings of List File inlineBuf$ = fgetline$(inListFile); # 00000000000000k0ncQt n = strlen(inlineBuf$); string inlineBufW$; inlineBufW$ = ""; for i=1 to n { if ( mid$(inlineBuf$, i, 1) == "\\" ){ inlineBufW$ = inlineBufW$ + "/"; }else{ inlineBufW$ = inlineBufW$ + mid$(inlineBuf$, i, 1); #printf(inlineBufW$); } } fwritestring(templistfile, inlineBufW$ + "\n"); } fclose(inListFile); } ##### Close List File ##### fclose(templistfile); ##### Delete Temp Files ##### func tempAllDELETE(){ DeleteFile(tempListFileName$); if (select_input_FFL == 2 and osCheck == 1){ DeleteFile(tempBatFile_name$); # 00000000kW0f0J0M0_0D04XTo0S0n0 N00000000W0f0O0`0U0D00 DeleteFile(tempBatFile_path$ + "\\test.lst"); } } # Information SML # # string msg$; msg$ = "\n\n S0n000000o0VW0Wtb 0}[pe$P`1X[10m0000W0W)R(u]K00"; msg$ = msg$ + "\n RVCb__n0000000h0W0f000000Y0000000g0Y00"; msg$ = msg$ + " \n\n\n"; msg$ = msg$ + " 0yr_0 \n"; msg$ = msg$ + " &!qeGIS TNTlite g00O(ug0M0~0Y00 \n"; msg$ = msg$ + " &S0n0 SML o00TNTmips ver6.8NMg0[Lg0M0~0Y00 \n"; msg$ = msg$ + " &S0n0 SML o00WindowsXP, MacOSX10.3 k0f0R\O0000W0f0D0~0Y00 \n"; msg$ = msg$ + " &Rvk0000000000NH0~0Y00 \n"; msg$ = msg$ + " \n\n"; msg$ = msg$ + " %S0n0 SML o01uk0000000QM^W0f0K0~0D0~0[00(000M^n00)0 \n"; msg$ = msg$ + " FOW00W\O)jo0>ehW0~0[000 \n"; msg$ = msg$ + " %S0n0 SML k000I{n0 NwQTL0zvU00_04XT0g0M00P0RRo0W0~0Y0L00 \n"; msg$ = msg$ + " \Oo000000000n0N0D0~0[000 \n"; msg$ = msg$ + " %S0n0 SML 0O(uY00Ng0D0K0j00 d[L0uX0f000\Oo0NRn0N0D0~0[000 \n"; msg$ = msg$ + " \n\n\n\n\n\n"; msg$ = msg$ + " 2004.08.26 ver2.4 0000~00T0h000000L0 TNTmips ver6.9 k0[_ \n"; msg$ = msg$ + " 2003.11.20 ver2.3 /:SR0h0 \\:SR0!Nen00000000k0[_ \n"; msg$ = msg$ + " 2003.11.19 ver2.2 MacOSX10.3 k0[_ \n"; msg$ = msg$ + " 2003.11.18 ver2.1 Cancel 000n0X0Qtn02Lrlh:yj0i09eo \n"; msg$ = msg$ + " 2003.11.14 ver2.0 SKj 'Y0W [*h_O>yOpenGIS] \Ob \n"; PopupMessage(msg$); Exit();RVC Data File@  (4