福岡県糟屋郡新宮町のQ&A

  • 締切済

    質問ホームセンター大型店を教えてください。

    • 2009/1/20
    • nobutalas

    福岡県前原市に最近越して来ました。 福岡、佐賀県内で大きなホームセンターを探しております。建築材料や工具などプロの方も利用するような(スーパービバホーム)のような充実した本格派大型のホームセンターがありましたらご紹介ください。前原市から1時間程度の場所でしたらかまいません。

  • 回答

    • 2009/1/21
    • noname#142951
    • ベストアンサー

    ご希望に沿うかどうかわかりませんが知っている範囲で紹介します。

    ナフコ 資材・増改築センター
    福岡県糟屋郡新宮町
    http://www.nafco.tv/shop/s_info.cfm?shop=189
    ホームプラザ ナフコ二丈店(糸島郡二丈町)
    http://www.nafco.tv/shop/s_info.cfm?shop=152

    ※グッディは参考になるホームページを見つけられませんでした。下記店舗が大きく品揃えもよいかと思います。
    グッディ西福岡店
    福岡市西区福重2-31-4

    ホームセンターガイド
    (福岡県)
    http://www.diy.or.jp/guide/40.html
    (佐賀県)
    http://www.diy.or.jp/guide/41.html

    続きを読む

  • 締切済

    質問福岡のバトンスクールについて

    • 2008/7/8
    • noname#75998

    福岡県糟屋郡新宮町に住んでいます。
    近くで小学生の子供のバトンスクールを探しています。
    ご存じの方、よろしくお願いします。

  • 回答

    • 2008/7/8
    • noname#904

    福岡の地理は存じませんけど・・・

    http://www.baton-team-infinity.com/profile.html
    こちらの先生はとてもよい方です。通える範囲ならおすすめします。
    長沢裕美子バトンスタジオのご出身です。
    同じバトンスタジオ出身で、本庄千穂さんという方がいらっしゃる有名なスタジオです。
    (お台場冒険王2008ファイナルでも、ブラスト2との共演予定の方、世界選手権も優勝された方です)
    http://www.ozmall.co.jp/entertainment/people/vol …
    ということでこちらもおすすめします。
    白浜先生はわりとお若い方なので、そのほうが小学生ですと習いやすいんじゃないかと思います。

    こちらもご参考に。
    http://www.baton-jp.org/school/search/%CA%A1%B2% …

    続きを読む

  • 締切済

    質問エクセル関数 住所から町村領域を取り出す。

    • 2008/2/4
    • sskj

    エクセルの関数で○○市○○町xxx番地などとなっている住所の
    区、市、郡を除いたそれ以降の住所だけ取り出したいのですが
    =FIND("市",B2)
    =REPLACE(B2,D2,3,"")

    このFINDに複数の検索文字列を指定して、当てはまる数値を出すにはどうのようにすればよいでしょうか?

  • 回答

    • 2008/2/4
    • noname#140971

    福岡県糟屋郡新宮町桜山手_____新宮__新宮町桜山手
    福岡県糟屋市新宮町桜山手_____新宮__新宮町桜山手
    福岡県糟屋区新宮町桜山手_____新宮__新宮町桜山手
    福岡県郡山郡新宮町桜山手_____新宮__新宮町桜山手
    福岡県糟市川市新宮町桜山手__新宮__新宮町桜山手
    福岡県糟市川市市田町桜山手__市田__市田町桜山手

    =GetTown(A1)
    =ReAltAddress(CutString(AltAddress(A1), "区,郡,市", 2))

    町名と町名と字番地を抜き出してみました。
    もちろん、上記の6つだけテストをしたに過ぎません。
    そういうことで、信頼性は今一つです。

    要は、単純にCutStr関数で抜き出すと’郡山’、"市川"、"市田"が邪魔します。
    そこで、予めこれらを置換しておいて抜き出した後にも再置換して不具合を解消しています。
    何とも原始的な手法ですが、まあ、<事足りればよし>じゃないですか?
    最も簡単に抜き出す手法かと思います。

    もちろん、事前置換と事後置換のデータセットは質問者の課題です。

    Public Function GetTown(ByVal Text As String) As String
      GetTown = ReAltAddress(CutStr(CutString(AltAddress(Text), "区,郡,市", 2), "町", 1))
    End Function

    Public Function CutStr(ByVal Text As String, _
                ByVal Separator As String, _
                ByVal N As Integer) As String
      Dim strDatas() As String
      
      strDatas = Split("" & Separator & Text, Separator, , 0)
      CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
    End Function

    Public Function CutString(ByVal Text As String, _
                 ByVal Separator As String, _
                 ByVal N As Integer) As String
      Dim I       As Integer
      Dim M       As Integer
      Dim strSeparator() As String
      Dim strReturn   As String
      
      strSeparator() = Split(Separator, ",")
      M = UBound(strSeparator())
      For I = 0 To M
        strReturn = strReturn & CutStr(Text, strSeparator(I), N)
      Next I
      CutString = strReturn
    End Function

    Public Function AltAddress(ByVal Text As String) As String
      Text = Replace(Text, "郡山", "こおり山")
      Text = Replace(Text, "市川", "いち川")
      Text = Replace(Text, "市田", "いち田")
      AltAddress = Text
    End Function

    Public Function ReAltAddress(ByVal Text As String) As String
      Text = Replace(Text, "いち田", "市田")
      ReAltAddress = Text
    End Function

    続きを読む

  • 締切済

    質問とんこつでしつこいラーメン

    • 2007/2/15
    • gogglen

    ドロッとしたしつこい感じで油っぽいとんこつラーメンが好みです。
    お勧めのラーメン屋とその場所を教えてください。

  • 回答

    • 2007/2/15
    • TXV12003
    • ベストアンサー

    福岡市博多区に本店がある「魁竜」と言うラーメン屋があります。
    私は、福岡県糟屋郡新宮町にある新宮店で初めて食べました。
    これはすごかったですね。匂いがすごい(笑)。
    親切にも、店の出入り口にファブリーズが置いてありますが、車で来店した時は、使ったほうがいいでしょう。車内に匂いがこびりつきます(笑)

    http://www.kairyu.co.jp/

    続きを読む