[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
542(2): (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/10(土)06:22 ID:BjcbKuib0(1/5) AAS
Ruby では、
# 一旦、整数の2次元配列にする。[[1, 1], [2, 2], [3], [4, 4, 4], [5], [6]]
result_ary = input_ary = "1,1,2,2,3,4,4,4,5,6".split( "," ).
chunk_while{ |prev, nxt| prev == nxt }.each_with_object( [ ] ) do |ary, acc| # 蓄積変数は配列
if ary.length == 1
acc.push( ary[ 0 ] )
else
ary.each_with_index do |num, idx|
acc.push( "#{ num }-#{ idx + 1 }" )
end
省3
543: 542 (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/10(土)06:24 ID:BjcbKuib0(2/5) AAS
>>542
修正
># 一旦、整数の2次元配列にする。[[1, 1], [2, 2], [3], [4, 4, 4], [5], [6]]
一旦、文字列の2次元配列にする
544: 542 (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/10(土)06:29 ID:BjcbKuib0(3/5) AAS
>>542
修正
>result_ary = input_ary = "1,1,2,2,3,4,4,4,5,6".split( "," ).
result_ary = "1,1,2,2,3,4,4,4,5,6".split( "," ).
545: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/10(土)06:39 ID:WLqCacU70(1) AAS
データの種類が少なければ連想配列
546: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/10(土)09:37 ID:ejDp+I1j0(1) AAS
先読みって考えるから面倒なのでは？
後出しって考えればいいのでは？
547: (ﾜｯﾁｮｲ ca01-yf4V) 2020/10/10(土)09:43 ID:VjEh1Ow80(1) AAS
てかあの程度の仕様なら自分で書けよって思う
あれぐらいで書けないってのは根本的にプログラミングの基礎分かってないでしょ
forとifで一度自分で書いてみろと
548: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/10(土)11:33 ID:ZZ8h2+k60(1) AAS
書く気が無いからコードくれと言ってるんじゃないの
549: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/10(土)12:12 ID:PwUkT7dUM(1/2) AAS
いつものあいつでしょ
550: (ﾜｯﾁｮｲ 0332-HnI9) 2020/10/10(土)14:51 ID:l6OboMxr0(1/2) AAS
書けない奴「いつもあいつでしょ」
551: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/10(土)15:12 ID:PwUkT7dUM(2/2) AAS
煽って自演のいつもの馬鹿
552: (ﾜｯﾁｮｲ 0332-HnI9) 2020/10/10(土)15:36 ID:l6OboMxr0(2/2) AAS
おじさん「煽ってなんちゃら」
553: (ﾗｸｯﾍﾟﾍﾟ MM86-SfJD) 2020/10/10(土)15:38 ID:VaQE37nUM(1) AAS
バグってハニー
554: (ﾜﾝﾄﾝｷﾝ MM3a-pCej) 2020/10/10(土)17:43 ID:aEE68DdLM(1) AAS
いつものあいつ確定
555(3): 542 (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/10(土)22:30 ID:BjcbKuib0(4/5) AAS
データベース変換などは、Ruby のEnumerable のメソッドを見て、
シェル芸とか、プログラミングのお題スレの問題を解いた方がよい
VBA は可読性が悪すぎて、作っても再利用できない。
OSS で全会社共通で、RubyのEnumerable 相当のメソッドを作って公開するべき！
他言語ではたいてい、Rubyと等価のメソッドを作る
556: 542 (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/10(土)22:31 ID:BjcbKuib0(5/5) AAS
>>555
修正
>データベース変換などは
データ変換などは
557(1): (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/11(日)00:52 ID:l/QRoUUr0(1) AAS
>>555
布教活動ご苦労さん
必要になったら勝手にRubyスレに行くから
帰っていいよ
558(1): (ﾜｯﾁｮｲ b301-NY7j) 2020/10/11(日)08:15 ID:qzIChT2z0(1) AAS
>>555
データ変換てのは基本的な作法さえ知ってればEnumerableメソッド使わなくても特に困ることもないだろう
ただのループ構造をこねくり回してるだけでそのためにメソッドを割り当てるなんてお仕着せもいいところ
559: (ﾜｯﾁｮｲ ca01-d5Pu) 2020/10/11(日)10:01 ID:QZ/HZvxF0(1) AAS
>>557-558
なぜ相手するんだ…
560(3): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:29 ID:lH9sVzvl0(1/2) AAS
Acrobatを使用したプログラムを複数回実行すると初回だけ成功し
2回目以降は
実行時エラー2147467259(80004005)
エラーを特定できません
となります(idに代入する行でエラー)
終了処理に不備があってacrobatのプロセスが残っているのではと思いましたが
色々なサイトを見ても解決がわからない状態です。
どうすれば治りますか。
プログラムは次のレスを参照ください。
561(2): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:30 ID:lH9sVzvl0(2/2) AAS
Dim objAcroApp As New Acrobat.AcroApp
Dim objAcroAVDoc As New Acrobat.AcroAVDoc
Dim objAcroPDDoc As New Acrobat.AcroPDDoc
Dim id As Long
Dim js As Object
Dim SaveName As String
id = objAcroApp.Show
id = objAcroAVDoc.Open(FilePath, "")
Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
Set js = objAcroPDDoc.GetJSObject
省11
上下前次1-新書関写板覧索設栞歴
あと 441 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.016s