osamuy の回答履歴

ruby 初心者の50代のサラリーマンです。 若い人にrubyがいいだろうと言われて挑戦していますが、なかなか分かりません。 どなたか、教えてください。 大きなCSVファイルがあって、 １行目は項目名が入っていて不要です。 ２行目以降、 各行２列目にレコード名、 各行８列目に欲しいデータが入っています。 データは２９行毎に１レコード分になっています。 レコード名は各行で重複しています。つまり、 試験日，サンプルA，***，・・・・・，観測値１，・・・・・・ 試験日，サンプルA，***，・・・・・，観測値２，・・・・・・ 試験日，サンプルA，***，・・・・・，観測値２９，・・・・・・ 試験日，サンプルB，***，・・・・・，観測値１，・・・・・・ 試験日，サンプルB，***，・・・・・，観測値２，・・・・・・ 試験日，サンプルB，***，・・・・・，観測値２９，・・・・・・ というデータです。 それを、 サンプルA，観測値１，観測値２，・・・・・，観測値２９ サンプルB，観測値１，観測値２，・・・・・，観測値２９ サンプルC，観測値１，観測値２，・・・・・，観測値２９ と直してｃｓｖファイルに保存し直したいのです。 どなたか、rubyプログラムの書き方を指南して下さい。

Access2007のSQLで質問です。「ユーザが選んだレンタカー営業所に所属する車と、その借主、レンタル日、レンタル期間」を一覧で表示するクエリーを制作しています。 テーブル ■Customer -CustomerID(主キー) -FirstName -LastName ■Book -FK_CustomerID（複合キー） -FK_CarNo（複合キー） -Date -Duration ■Car -CarNo（主キー） -Model ■Own -FK_CarNo（複合キー） -FK_LocationNo（複合キー） ■Location -LocationNo（主キー） -LocationName ------------------------------------------------------------------- LocationNameの中から指定したLocationが保有するCarのBookすべてを表示するクエリーを作りたいです。 クエリーが生成するアウトプットは、CarNo, Model, FirstName, LastName, Date, Duration, です。 以下のSQLを作ってみましたが、"syntax error missing operator.."と表示されてしまいます。 SELECT c.CarNo, c.Model, cs.FirstName, cs.LastName, b.Date, b.Duration FROM Location l INNER JOIN ( ( (Own o INNER JOIN Car c ON o..FK_CarNo = c.CarNo l.LocationNo) INNER JOIN Book b ON c.CarNo = b.FK_CarNo) INNER JOIN Customer cs ON b.FK_CustomerID = cs.CustomerID) ON l.LocationNo = o.FK_LocationNo WHERE l.LocationName =:user_input ;

C++についての質問です coutで表示するときに kannsuu関数の返り値を main関数とmain関数の cout << ++kannsuu(i) << endl; の部分を変更せずに kannsuu関数のみを変更して インクリメントして「2」と表示したいのですが どのようにすればいいですか？ #include <iostream> using namespace std; int kannsuu(int i) {return i;} int main() { int i = 1; cout << ++kannsuu(i) << endl; return 0; }

現在、Perlにて外部のcsvファイルを読み込み、"重複行"と"空白行"を削除するプログラムを作成しています。 重複行を削除する部分は ------ open(IN, "csvtime.csv"); @data = <IN>; close(IN); @data = grep {!$count{$_}++} @data; open(OUT, "> csvtime.csv"); print(OUT @data); close(OUT); ------ でできたのですが、空白行を削除する部分がわかりません。 申し訳ないのですが、お教えいただけないでしょうか。 また、空白行で最初の空白行は残すようにしたいです。 よろしくお願いいたします。 例） 読み出しデータ ----- (ヘッダ1行目) (ヘッダ2行目) (ヘッダ3行目) (必要な空白) (ヘッダ4行目) 00:00:00,302 00:01:00,274 00:02:00,272 00:03:00,248 00:04:00,237 00:05:00,239 00:05:00,239 00:06:00,256 00:07:00,260 00:08:00,250 00:09:00,253 00:10:00,241 ----- 加工後データ ----- (ヘッダ1行目) (ヘッダ2行目) (ヘッダ3行目) (必要な空白) (ヘッダ4行目) 00:00:00,302 00:01:00,274 00:02:00,272 00:03:00,248 00:04:00,237 00:05:00,239 00:06:00,256 00:07:00,260 00:08:00,250 00:09:00,253 00:10:00,241 -----

下記の配列についてitem2の値のみ取り出したいのですが、 foreach($food as $key1=>$array){ foreach($array as $key2=>$array2){ echo $food["$key1"]["item2"]; } } foreachで回して取り出すと555444333となります。 543という結果が欲しいのですが、 実際には下記の配列が数百と大量にあり、一次元配列の数字は下記のように0から1ずつ増えていきます。（二次元目のキーは全てitem0～item2となっています） キーの変更をしないでitem2の値のみ一度に取り出すにはどうしたらよいのでしょうか？ （取り出す前に配列の削除などのプログラムもあるため、0から順番に並んでいるとは限りません。 ） $food["0"]["item0"]="y"; $food["0"]["item1"]="bi"; $food["0"]["item2"]="5"; $food["1"]["item0"]="y"; $food["1"]["item1"]="dou"; $food["1"]["item2"]="4"; $food["2"]["item0"]="n"; $food["2"]["item1"]="co"; $food["2"]["item2"]="3";

'2012/04/03-20:14:00' => 'WIND' => '5.7' '2012/04/03-20:14:01' => 'WIND' => '5.9' … という風に時間と風速が書かれたテキストデータがあるのですが、この風速が'20'以上の場合の行のみを抽出して表示したいのですが、どのようなプログラムを書けばよろしいでしょうか。

お世話になります。 Access2003を利用しておりますが、一つのクエリで以下の算出(抽出？)は可能でしょうか。 検品テーブル 　・ID 　・ライン 　・グループ 　ID　ライン　グループ 　1　　L1　　　　G1 　2　　L1　　　　G1 　3　　L1　　　　G2 　4　　L1　　　　G2 　5　　L1　　　　G2 　6　　L2　　　　G3 　7　　L2　　　　G3 　8　　L3　　　　G4 　9　　L3　　　　G4 　10　 L3　　　　G4 　11　 L3　　　　G4 　12　 L3　　　　G5 　13　 L3　　　　G5 　14　 L3　　　　G6 　15　 L4　　　　G7 結果として、一つのラインでのグループ数の最大値(上記の例だとL3はグループが3つあるので3)を一つのクエリで算出したいと考えております。 以下のように3つのクエリを作成すれば結果は得られるのですが、できれば一つのクエリでやりたいところです。 　(1)検品テーブルを、[ライン]と[グループ]でグループ化 　　　L1　G1 　　　L1　G2 　　　L2　G3 　　　L3　G4 　　　L3　G5 　　　L3　G6 　　　L4　G7 　(2)上記クエリをグループ化し[グループ]をカウント 　　　L1　2 　　　L2　1 　　　L3　3 　　　L4　1 　(3)上記クエリでグループカウントの最大値 　　　　　3 この最大値3を算出するのを一つのクエリで行いたいのですが、可能でしょうか。 ご教授お願い致します。

SetTextAlignのAPIを多用しています このAPIの既定値として事前に定義してあるのが、Wingdi.h Windows.ｈであるとＭＳＤＮに記載されています そこでこの二つのファイルを開こうと思いましたが、何処にあるのか分かりません コントロールパネル⇒フォルダオプション⇒隠しファイルも表示 にしておいて 画面左下のWindowsマークをクリック、プログラムとファイルの検索欄に Windgi.h または Windows.h と入れて検索してもそれらしい項目は表示されません 私の操作方法の誤りを教えて頂ければ幸いです 宜しくお願い申し上げます

　月間の勤務割表を作成しています。 1列3行を一枡として一人・一日の枡とし、勤務の割り振り状態を表示するものです。 列に日付、行を個人名（max16名）とし1列3行を名前の定義で13種類作成してあります。 別シートの各セルの入力番号に応じて13種類を貼り付けていますが、式を簡単にできませんでしようか？ 　お教えくださいませんでしょうか？勉強不足は否めませんが。 尚名前の定義は、1行3列に1－－で勤務1・""-""で日勤・""公休""で公等にしてあります。 OS Windows7 Office2010 Sub 図形の貼付け2() If Worksheets("メイン").Range("J9").Value Then Select Case Worksheets("メイン").Range("J9").Value 1人－1日 Case 1: ActiveSheet.Range("勤務１").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 2: ActiveSheet.Range("勤務2").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 3: ActiveSheet.Range("勤務3").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 4: ActiveSheet.Range("日勤1").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 5: ActiveSheet.Range("日勤2").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 6: ActiveSheet.Range("日勤3").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False End Select Else Select Case Worksheets("メイン").Range("I9").Value Case 2: ActiveSheet.Range("明け").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 4: ActiveSheet.Range("夜勤").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 5: ActiveSheet.Range("公").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 6: ActiveSheet.Range("有").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 7: ActiveSheet.Range("特").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 8: ActiveSheet.Range("振").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False Case 9: ActiveSheet.Range("欠").Select Selection.Copy Range("D10").Select ActiveSheet.Paste Application.CutCopyMode = False End Select End If End Sub

プログラム自体始めて間もない初心者です。 javascriptでHTMLのソースを取得して、正規表現でマッチしたURLを書き出したいと思います。 取得したソースから正規表現で抽出はできましたが、さらに手を加えると機能しませんでした。 下記test-1では「http://abc.com/」と表示されましたので思った通りに動きました。 しかし、test-2では「http」と表示されると思っていたところ、表示されませんでした。 この違いはなんでしょうか？ //////////////////// test-1 <html> <head> <script type="text/javascript"> function test(){ aaa = document.getElementsByTagName("html")[0].innerHTML; bbb = aaa.match(/http:\/\/abc\.com\//); document.write(bbb); } </script> </head> <body> <input type="button" onclick="test()"> <a href="http://abc.com/"> </body> </html> //////////////////// test-2 function test(){ aaa = document.getElementsByTagName("html")[0].innerHTML; bbb = aaa.match(/http:\/\/abc\.com\//); ccc = bbb.match(/http/); document.write(ccc); }

VBAを使ってgoogleのキーワード検索結果に表示される10文字程度の文字列を取得する作業を 検索キーワードを変化させて200件ほど取得しようと考えております。 （当然200回googleへのアクセスとなります） 以下のコードをdo untilで実行し、 変数"hogehoge"には"URL;https://www.google.co.jp/search?q=(任意のキーワード)"を代入します。 （任意のキーワード部分は200種類あります。） ------------------------------------- With Sheets("web").QueryTables.Add( _ Connection:=hogehoge, _ Destination:=web.Cells(1, 1)) .WebSelectionType = xlEntirePage .Refresh BackgroundQuery:=False .Parent.Names(.Name).Delete .Delete End With ------------------------------------- Destinationであるweb.Cells(1, 1))には検索結果ページが丸ごと入るので、 ここから欲しい文字列を正規表現で抜き取り、別のセルに移し替えます。 これにより別のセルに欲しい文字列（10文字程度）がどんどん追加されるのですが、 40件前後の取得を実行すると様々な理解不能なエラー文が出てきて停止してしまいます。 エラー文の例 --------------------------------------------------- エラー1004 サイトへのリクエストが正しくありません --------------------------------------------------- 実行時エラー　91 オブジェクト変数またはwithブロック変数が設定されていません --------------------------------------------------- エラーで止まった直後に再度実行しても同じエラーが出て動きませんが VBAを完全に終了させて、2～30分放置した後何気なく開始してみるとまた動き始めて、 40件程度取得し始めますが、再度同じエラーで停止します。 何が何だかさっぱりです、、、 このような作業はVBAに向かないという事なのでしょうか？ それとも上記のコードになにかおかしな点があるのでしょうか？ apiを使うべきだとも考えておりますが是非この方法でなんとかしたいと考えております。 大変お手数ですがお分かりになる方ご教示願いませんでしょうか？ よろしくお願いします。

桐　のヘルプによると　 「日付選択で　カレンダーを使用して、検索する日付を選択します」と あるのですが　カレンダーは　全く出てきません。 桐の　どのメニューから選べばできるか　ご存じの方　教えてください。 要は　カレンダーを利用して　日付データを　入力したいのです XP 桐　V9 よろしくお願いします。

■環境：xcode4.2 ■iOS：5.1 DocumentDirectoryに保存した テキストデータを利用した、 カウンターを制作しようとしております。 現状、テキストファイルから数字を読み出し、 1数値を足して、上書き保存するカウンターを試していますが、 結果蓄積されるテキストファイルは「1」になって、 以降2 3 ～と増えずに、思った動作をしておりません。 私は経験が浅く基本的なところが間違えているかもしれません。 どなたか、こちらの具体的な解決方法を ご教示いただけますでしょうか？ よろしくお願いいたします。 //カウント　テキスト読み込み NSArray *pathcount = NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, YES); NSString *count_moto = [[pathcount objectAtIndex:0]stringByAppendingPathComponent:@"count.text"]; //カウント加算 int count = [count_moto intValue]; int countplus = count++; NSString *fixcount = [NSString stringWithFormat:@"%d",countplus]; //カウント　テキスト書き込み [fixcount writeToFile:count_moto atomically:YES encoding:NSUTF8StringEncoding error:NULL];

質問なんですが、今、私はグーグルクロムというもので質問をしているんですが、それがたまにプラグインの停止と上に写ることがあるんです。そして、それを押すとなにやら目を罰にしたジグソーのピースっぽいのが出てくるんですがあれって何を意味するんでしょうか？すぐでなくていいので教えていただけないでしょうか？

お世話になります。 ＳＱＬ Serverのデータ加工についてＳＱＬを教えてください。 元のデータをＳＱＬを使って下記のほしいデータのようにして取得したいのです。 （出身地毎の行で各種目別に集計したい） お願いします。 ＊元のデータ(MotoTable) 出身地,得点,種目,実施年,実施月 東京,80,幅跳び,2012,10 東京,54,反復横跳び,2012,10 長野,66,幅跳び,2012,10 新潟,47,幅跳び,2012,10 新潟,90,幅跳び,2012,10 佐賀,25,幅跳び,2012,10 佐賀,66,反復横跳び,2012,10 東京,100,幅跳び,2012,10 東京,19,反復横跳び,2012,10 愛知,5,懸垂,2012,10 愛知,6,懸垂,2012,10 佐賀,7,懸垂,2012,10 ＊欲しいデータ 出身地,合計点,幅跳び,反復横跳び,懸垂,実施年,実施月 東京,253,180,73,0,2012,10 長野,66,66,0,0,2012,10 新潟,137,137,0,0,2012,10 佐賀,98,25,66,7,2012,10 愛知,11,0,0,11,2012,10

ParlはCGIを設置するのにプロパイダのPaｒｌソフトを使わないとCGIが設置できないと聞きました C言語の場合はParlソフトを使うわけではないのでプロパイダに聞かなくてもCGIは設置可能でしょうか？

プログラミングを始めたばかりです。 Cygwin上でPerlを行っています。 下に示すように、計算プログラムの中にデータを記入し、そのデータを処理することは出来たのですが、外部のファイルを読みそのデータを処理する方法が分かりません。 # y = ax + bを求める @x=(1,2,3); @y=(1,4,9); for($i=0;$i<$n;$i++){ $A = $A + ($y[$i] * $y[$i]); $B = $B + ($x[$i] * $x[$i]); 　　・ 　　・ 　　・ $a=・・・ $b=・・・ print("a=$a,b=$b"); パールファイル（.pl）内に @x=(1,2,3); @y=(1,4,9); のように記載すると、データが変わるたびにファイル内の数値を入れ替えないといけないと思うのですが、cygwinのウィンドウに、 $ ./lesson.pl 10 <data1.csv のように入力しEnterすると、ファイル内の数値を入れ替えないで指定したファイル（ここではdata1.csv）のデータが処理されると思うのですが、その場合パールファイルをどのように記述すればよいのでしょうか。また、cygwinのウィンドウにどのように入力すればよいのでしょうか。 よろしくお願いします。

すいません。多次元配列でキーを基準に並び変えを行いたいのですが、解説サイトやここでの質問で も解決せず困っています。以下が実際の配列で四次元目の2012010101～2012010107の数字を昇順、 降順で並び変え、k1～k4の値を結果として表示したいのですが、phpでは不可能なのでしょうか？ 散々調べましたが、多次元配列の値で並び替えるというのは見つけたのですが、私が行いたいのは あくまでキーの数字で並び変えです。 詳しい方いましたらアドバイスいただければ助かります $food["y"]["bi"]["1"]["2012010101"]= "k1"; $food["y"]["ko"]["2"]["2012010104"]= "k2"; $food["n"]["dou"]["3"]["2012010105"]= "k3"; $food["y"]["dou"]["4"]["2012010106"]= "k4"; $food["n"]["bi"]["5"]["2012010107"]= "k5";

現在Androidを勉強中なのですが、関数が呼び出されるタイミングの質問です。 onCreate()はアクティビティ作成時に呼ばれるようですが、 画像のようなプログラムでアクティビティが表示された後、 ボタンを押すとonClick()が呼ばれる仕組みがわかりません。 ボタンを押した後onCreate()自体は呼ばれていないのに、 内部のonClick()がなぜ呼ばれるのでしょうか？ このあたりの仕組を説明していただけると助かります。 よろしくお願いいたします。

いつも大変お世話になっております。 WindowsXP SP3にて下記のバッチファイルがあります。 コード------------------------------------------------------ SETLOCAL ENABLEDELAYEDEXPANSION SET DIR_LIST=D:\TEST\FINSSTR\DIR.txt SET DIR=D:\TEST\FINSSTR\DIR SET FIND_OK_LIST=D:\TEST\FINSSTR\FIND_OK.txt SET FIND_NG_LIST=D:\TEST\FINSSTR\FIND_NG.txt Dir /s %DIR%\*.txt /b > %DIR_LIST% for /f "tokens=* " %%a in (%DIR_LIST%) do call :sub "%%a" echo "処理完了" :sub for /f "delims=" %%T in (%~1) do ( set LINE=%%T findstr "○" %~1 If !errorlevel!==0 ( echo !LINE!>>%FIND_OK_LIST% ) else ( echo !LINE!>>%FIND_NG_LIST% ) ) コード------------------------------------------------------ 該当フォルダ(サブフォルダ含む)にて 【.TXT】の拡張子で"○"の記号がファイル内にあるかをサーチする バッチを作成してみました。 ○があれば、FIND_OK_LISTに ・・・なければFIND_NG_LISTに検索対象ファイル名(フルパス付き)で それぞれ出力するバッチです。 しかし実行してもうまく稼動しません。 DIR.txtまでは作成されています。 何に問題があるのでしょうか？ 他のバッチ等をCALLせず、かつVBS等も使わず バッチ1本で実現したいのですが可能でしょうか？ ※何かしらのソフトで実施したくもないです。 ご存知の方がいれば、ご教授願いますでしょうか？ 以上、何卒宜しくお願い致します。