test

Let  ( 
          [

        /*市町村以下の住所*/
            v市町村  =  Right  (  $住所  ;  Length  (  $住所  )  –  Length  (  ui01_実習管理::ui01_g_都道府県  )  )  ; 

        /*市町村名に市、郡、町、村がある名称、郡がない町村の照合用*/
            v3文字  =  Left  (  v市町村  ;  3  )  ;
            v4文字  =  Left  (  v市町村  ;  4  )  ;
            v5文字  =  Left  (  v市町村  ;  5  )  ;
            v6文字  =  Left  (  v市町村  ;  6  )  ;
            v7文字  =  Left  (  v市町村  ;  7  )  ;
            v8文字  =  Left  (  v市町村  ;  8  )  ;
            v9文字  =  Left  (  v市町村  ;  9  )  ; 

        /*区の文字位置*/
            v東京区  =  Position  (  v市町村  ;  “区”  ;  1  ;  1  )  ;

        /*最初の市、郡、町、村の位置*/
            v市  =  If  (  Position  (  v市町村  ;  “市”  ;  1  ;  1  )  ≥  1  ;  Position  (  v市町村  ;  “市”  ;  1  ;  1  )  ;  1000  )  ;
            v郡  =  If  (  Position  (  v市町村  ;  “郡”  ;  1  ;  1  )  ≥  1  ;  Position  (  v市町村  ;  “郡”  ;  1  ;  1  )  ;  1000  )  ;
            v町  =  If  (  Position  (  v市町村  ;  “町”  ;  1  ;  1  )  ≥  1  ;  Position  (  v市町村  ;  “町”  ;  1  ;  1  )  ;  1000  )  ;
            v村  =  If  (  Position  (  v市町村  ;  “村”  ;  1  ;  1  )  ≥  1  ;  Position  (  v市町村  ;  “村”  ;  1  ;  1  )  ;  1000  )
            ]  ; 

                Case  (

                        /*市町村名に市、郡、町、村がある市町村、郡がない町村の照合、取得*/
                            v3文字  =  “蒲郡市”  or 
                            v3文字  =  “郡上市”  or　
                            v3文字  =  “村山市”  or　
                            v3文字  =  “村上市”  or 
                            v3文字  =  “市原市”  or 
                            v3文字  =  “市川市”  or 
                            v3文字  =  “大村市”  or 
                            v3文字  =  “羽村市”  or 
                            v3文字  =  “新島村”  or 
                            v3文字  =  “大島町”  or 
                            v3文字  =  “利島村”  or 
                            v3文字  =  “小郡市”  or 
                            v3文字  =  “郡山市”  or 
                            v3文字  =  “田村市”     
                                                                          ;  v3文字  ; 

                            v4文字  =  “廿日市市”  or
                            v4文字  =  “四日市市”  or
                            v4文字  =  “野々市市”  or
                            v4文字  =  “御蔵島村”  or
                            v4文字  =  “小笠原村”  or
                            v4文字  =  “神津島村”  or
                            v4文字  =  “青ヶ島村”  or
                            v4文字  =  “東村山市” 
                                                                          ;  v4文字  ;   

                            v5文字  =  “武蔵村山市”  or 
                            v5文字  =  “大和郡山市”
                                                                          ;  v5文字  ;   

                            v6文字  =  “柴田郡村田町”  or 
                            v6文字  =  “佐波郡玉村町”  or 
                            v6文字  =  “三宅島三宅村”  or 
                            v6文字  =  “八丈島八丈町”  or 
                            v6文字  =  “芳賀郡市貝町”  or 
                            v6文字  =  “吉野郡下市町”  or 
                            v6文字  =  “高市郡高取町”  or 
                            v6文字  =  “田村郡三春町”  or 
                            v6文字  =  “田村郡小野町”  or 
                            v6文字  =  “神崎郡市川町”  or 
                            v6文字  =  “赤穂郡上郡町”  or 
                            v6文字  =  “余市郡仁木町”  or 
                            v6文字  =  “余市郡余市町” 
                                                                          ;  v6文字  ;   
 
                            v7文字  =  “西村山郡河北町”  or 
                            v7文字  =  “西村山郡西川町”  or
                            v7文字  =  “西村山郡大江町”  or
                            v7文字  =  “西村山郡朝日町”  or
                            v7文字  =  “東村山郡山辺町”  or
                            v7文字  =  “東村山郡中山町”  or
                            v7文字  =  “高市郡明日香村”  or
                            v7文字  =  “中新川郡上市町”  or
                            v7文字  =  “余市郡赤井川村”
                                                                          ;  v7文字  ;   

                            v8文字  =  “北村山郡大石田町” 
                                                                          ;  v8文字  ;   
 
                            v9文字  =  “西八代郡市川三郷町” 
                                                                          ;  v9文字  ; 

                        /*東京都特別区の名称を取得*/
                            ui01_実習管理::ui01_g_都道府県  =  “東京都”  and  v東京区  ≥  1  and    v東京区  ≤  4 
                                                                          ;  Left  (  v市町村  ;  v東京区  )  ; 

                        /*上記以外の市町村名を取得*/
                            v市  ≥  2  and  v市  <  v郡  and  v市  <  v町  and  v市  <  v村 
                                                                          ;  Left  (  v市町村  ;  v市  )  ; 

                            v郡  ≥  2  and  v郡  <  v市  and  v郡  <  v町  and  v町  <  v村   
                                                                          ;  Left  (  v市町村  ;  v町  )  ; 

                            v郡  ≥  2  and  v郡  <  v市  and  v郡  <  v村  and  v村  <  v町 
                                                                          ;  Left  (  v市町村  ;  v村  )  ; 


　　　　　””
            )   
          )