[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
444: (ﾜｯﾁｮｲ e3da-yeTY) 2020/10/02(金)01:42 ID:MWdBgx4Q0(1/2) AAS
セルをマウスでドラッグって何だよ?
エクセルで将棋でもやるの?
445: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/02(金)01:43 ID:ChxT/cO/0(1/2) AAS
>>425
それExcel VBAでやるものではない。
自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。
446: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/02(金)01:49 ID:ChxT/cO/0(2/2) AAS
>>439
そもそも手順というものを考えた方がいい。
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？
447: (ﾜｯﾁｮｲ d3cc-gW4a) 2020/10/02(金)10:09 ID:A7BNHAQE0(1/3) AAS
指定したフォルダ内の全てのＣＶＳファイルを配列に追記していき対のですが、コードを教えてください
配列の０列目（１次元目）にはそれぞれのＣＳＶファイルのファイル名をいれたいです。
Sub Sptyou()
Dim FolderPath As String, buf As String, TargetDate As String
'■フォルダを指定する
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = 0 Then
MsgBox "キャンセルされました。"
Exit Sub
End If
省4
448(1): 447 (ﾜｯﾁｮｲ d3cc-gW4a) 2020/10/02(金)10:09 ID:A7BNHAQE0(2/3) AAS
つづき
buf = Dir(FolderPath & "*.csv")
Do While buf <> ""
Open buf For Input As #1 'インプットモードでファイルを開く
Line Input #1, TargetDate
Do Until EOF(1) 'ファイルの終点まで
Line Input #1, Tardt '開いたファイルを上から順に読み込んでいき、変数TargetDateに代入していく
If Split(TargetDate, ",")(1) = "" Then Exit Do
'配列に追記する
ReDim Preserve BiforeArray(Ubound(BiforeArray) + 1 To ??, 1 To 190) = Sprit(TargetDate,",")
省5
449(1): (ﾌﾞｰｲﾓ MM27-gZNM) 2020/10/02(金)10:42 ID:cHoSzh9XM(1) AAS
ReDim Preserveで操作可能なのは最右端の次元だけだから2次元配列で1次元目に使いたいなら一旦反転させた状態で操作して出力時にWorksheetfunction.transpose使って吐き出す必要があるぞ
いまいち最終目的が分からなかったから取り合えず読んでて気になった所だけ
450: (ﾜｯﾁｮｲ d32c-G8Sl) 2020/10/02(金)10:56 ID:ooD45Zz30(1/2) AAS
Linux のcat なら、複数のファイルを連結できるけど
451: (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/02(金)12:25 ID:XdHW2/g2M(1/2) AAS
win dosならcopyで連結できるけど
452: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/02(金)12:29 ID:a296oIK60(1/2) AAS
>>448
内側のLoop内で Tardt ってのが気になった
453(2): 447 (ﾜｯﾁｮｲ d3cc-jreG) 2020/10/02(金)13:32 ID:A7BNHAQE0(3/3) AAS
>>449
右端にファイル名を入れるにはどうしたらいいですか？
それと、配列のＵｐｐｅｒをどう設定したらいいですか？
454: (ﾜｯﾁｮｲ ff6d-Zm3W) 2020/10/02(金)15:56 ID:7/1+1goB0(1) AAS
また馬鹿な質問者か。それともいつもの厚かましい馬鹿か？
455(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/02(金)16:13 ID:XdHW2/g2M(2/2) AAS
右端の次元と右端の列では話の次元が違うけどわざとやってんのかなー？
excelなんだからとりあえずシートに格納すればいいと思うんだけどなー
配列に1行づつ追加するよりはやいんじゃね？
VBは動的配列無いんだからパフォーマンス出すには頭を使わにゃいかんよ
行数をキーにしたDictionaryもいいかもね
456: (ﾜｯﾁｮｲ ffad-gZNM) 2020/10/02(金)16:51 ID:p6rjz1Jr0(1) AAS
>>453
配列のUpperが何を意味してるのかいまいち分からんがこんな感じで良いんか？
Line Input #1, TargetDate
BeforeArray(0, Ubound(BeforeArray, 2)) = ファイル名
For文[1〜190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
Do Until EOF(1)
Line Input #1, TargetDate
For文[1〜190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
省1
457: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/02(金)18:32 ID:a296oIK60(2/2) AAS
>>453
こういうことじゃないのか
targetdata = buf & "," & targetdata
458: (ﾜｯﾁｮｲ e3da-Kk5w) 2020/10/02(金)22:17 ID:MWdBgx4Q0(2/2) AAS
>>455
サイドブレーキを使う坂道発進をダサイと感じるようなもので、
どう考えてもシート格納が合理的なのに、無理して配列を使うわけですよ。
459(1): (ﾜｯﾁｮｲ d32c-G8Sl) 2020/10/02(金)23:43 ID:ooD45Zz30(2/2) AAS
CSV の規格では、各要素をクォート文字で囲めば、
各要素中に、列区切り文字も入れられる
"a,b", x
Ruby などのCSVライブラリを使わず、
自力で、列区切り文字で分割すると、バグるだけ
CSVの規格を知らない香具師が、よくやってる
460(1): (ﾜｯﾁｮｲ 7f4b-3DJV) 2020/10/03(土)00:18 ID:DSTQ9BDR0(1/2) AAS
csvに規格ってあったんだ
461: (ﾜｯﾁｮｲ f35f-MSJL) 2020/10/03(土)07:11 ID:umHauNXS0(1) AAS
ExcelでCSVをダブルクリックで開いて編集、上書きして事故る人が多いね
462: (ﾜｯﾁｮｲ ff01-V07v) 2020/10/03(土)07:17 ID:NCQ7EVNV0(1) AAS
>>460
一応あるけど結局Excelで読めないとダメって言うケースが大多数だったりする
外部ﾘﾝｸ:www.kasai.fm
463: (ﾜｯﾁｮｲ 53ce-2+Dn) 2020/10/03(土)08:43 ID:2jz2H7gQ0(1) AAS
そのRFCって、たくさんあるローカルルールの1つを紹介してるだけだよな
強制力もなさそうだし、現時点ではあんまり意味がなさそう
464: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/03(土)11:51 ID:ylT9+9xh0(1) AAS
>>459
マイクロソフトの製品はそれに沿っているものがあるが、クォーテーションがついたり、つかなかったりするのは、人間にとってもタチが悪く、完全に失敗した仕様と結論が出ている。
465(1): 459 (ﾜｯﾁｮｲ d32c-IT45) 2020/10/03(土)13:01 ID:/wA+nWqo0(1/2) AAS
列区切り文字は、必要なければ省略できる
つまり、x も、"x" も同じ。
全ての要素に、付けてもよい
ただし、"a,b" みたいに要素内に、
行区切り文字・列区切り文字・クォート文字を含む場合は、省略できない
466: 459 (ﾜｯﾁｮｲ d32c-IT45) 2020/10/03(土)13:03 ID:/wA+nWqo0(2/2) AAS
>>465
修正
>列区切り文字は、必要なければ省略できる
クォート文字は、必要なければ省略できる
467: (ﾜｯﾁｮｲ 7f4b-3DJV) 2020/10/03(土)13:04 ID:DSTQ9BDR0(2/2) AAS
できないって言われましても強制力無いですし
468: (ﾜｯﾁｮｲ ff2f-G8Sl) 2020/10/03(土)13:34 ID:zZGrTJee0(1) AAS
まあそもそも多数の実装が出てからそれ集めて決めた仕様だからな
469: (ﾜｯﾁｮｲ e3da-Kk5w) 2020/10/03(土)19:43 ID:WrZNWJut0(1) AAS
そういやあれ何だろうな。
QueryTableだとセル内改行でずれるのに、
ADOだとずれないとか。
470: (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(1/3) AAS
配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。
Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
省3
471(3): (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(2/3) AAS
配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。
Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
省3
472: (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(3/3) AAS
連投すいません
473: (ｽｯｯﾌﾟ Sd1f-+ya4) 2020/10/04(日)19:15 ID:l1LxtJm7d(1) AAS
注意
ID:mqiPq7lq0
いつもの馬鹿です
474: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/04(日)21:13 ID:3bz1Ts/P0(1) AAS
>>471
検索したらいいんじゃね
475(1): (ﾜｯﾁｮｲ b37c-Uy5C) 2020/10/04(日)21:42 ID:NRUY+ZF00(1) AAS
>>471
例えとかいい感じとかじゃなくて正確にコードを提示してどの部分をどうしたいのか明確に説明した方がいいよ
476: (ｽｯｯﾌﾟ Sd1f-EBv7) 2020/10/04(日)21:43 ID:hlbFeQNpd(1) AAS
後出し続けて全部作ってもらおうという魂胆の奴だぞ
477: (ｵｯﾍﾟｹ Sr47-owA3) 2020/10/05(月)01:21 ID:Roj0MJiCr(1) AAS
VBAからIEを操作して、タグを指定して.valueやselctedで自動化しているのですが、ヤフオクの商品説明だけどうしても値の挿入ができません。
Tabや近い要素をフォーカスしたりクリックし、SendkeyなどでShift +Tabからエンダーなど試していますが、一向に解決できません。
直接でか無くてもカーソルが点滅させれれば、クリップボード経由で貼り付けるような仕様にしようと考えています。
478: (ﾜｯﾁｮｲ d32c-IT45) 2020/10/05(月)07:08 ID:z7kgQPv30(1/2) AAS
漏れは、Ruby, Selenium Webdriver で、ブラウザを自動操作して、
send_key で、ユーザー名・パスワードを自動入力して、ヤフーにログインしてる
require "selenium-webdriver"
options = Selenium::WebDriver::Chrome::Options.new
options.add_option( :detach, true ) # ブラウザを切り離す
options.add_argument( '--start-maximized' ) # 画面最大
driver = Selenium::WebDriver.for :chrome, options: options
driver.manage.timeouts.implicit_wait = 10 # default timeout
driver.navigate.to "外部ﾘﾝｸ:login.yahoo.co.jp
省6
479: 478 (ﾜｯﾁｮｲ d32c-IT45) 2020/10/05(月)07:11 ID:z7kgQPv30(2/2) AAS
そもそも、IE なんか動くのか？
漏れは、Chrome
480(1): (ﾊﾞｯﾄﾝｷﾝ MMc7-7HYc) 2020/10/05(月)12:57 ID:BlyIycRMM(1/2) AAS
>>475
すみません。
Sub test
Dim i,ary()
For i = 1 to 2
ary = TestFunc ※ary配列の要素の最後に呼び出した配列を追加していきたい
Next
End
481(1): (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/05(月)13:22 ID:PJYbs+y10(1/2) AAS
配列に配列を追加するのを初心者がつくるなら
追加する2つの配列と結果を格納する配列の計３つを用意して順番に格納すればできないかな？
482: (ﾜﾝﾄﾝｷﾝ MMe7-hUkp) 2020/10/05(月)14:35 ID:8f5Gi5TxM(1) AAS
>>480
いい加減にしろや糞が
483(1): (ﾜｯﾁｮｲ ff2f-IT45) 2020/10/05(月)14:54 ID:3En1oQ3G0(1) AAS
>>471
redim preserveとUBoundを使うのかも
まあしかし、その処理ほんとに配列でやるのが良いのか検討したほうが良いんだが
VBAコレクション系弱いからなぁ
484(1): (ﾜｯﾁｮｲ d3da-y5MG) 2020/10/05(月)15:05 ID:PJYbs+y10(2/2) AAS
検索すればすむのにね
485: (ﾊﾞｯﾄﾝｷﾝ MMc7-7HYc) 2020/10/05(月)17:50 ID:BlyIycRMM(2/2) AAS
>>481
>>483
ありがとうございました。
486: (ﾌﾞｰｲﾓ MMe7-k/5x) 2020/10/05(月)17:58 ID:FAPvswgpM(1) AAS
喧嘩腰だなあ
何しにきてんのさ
487: (ｱｳｱｳｳｰ Sa27-y5MG) 2020/10/05(月)18:26 ID:KW0b9HJla(1) AAS
くれくれ君だからしょうがないだろ
488(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/05(月)19:48 ID:UUAqkjmTM(1) AAS
>>484
F1キー押す方が早くね？
489: (ﾜｯﾁｮｲ 53ce-2+Dn) 2020/10/05(月)19:51 ID:0f3oInSL0(1) AAS
>>488
押すだけならワンキーだけど、オンラインヘルプはそこからが長い
490: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/06(火)10:31 ID:9/35+5mY0(1) AAS
大人の対応でうまく誘導してやろうぜ
491: (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/07(水)19:45 ID:FTOZLATq0(1/3) AAS
下記のように特定の文字を削除して、改行をやめて1行文にしたいのですがコードのご教示いただけないでしょうか
やんやんつけ棒§
めちゃ美味い
ポテトチップス§
めちゃ美味い
↓
やんやんつけ棒めちゃ美味い
省1
492(2): (ﾃﾃﾝﾃﾝﾃﾝ MM86-J9E+) 2020/10/07(水)20:04 ID:7ZMz7DKjM(1/2) AAS
まともなテキストエディタ(VSCodeとかサクラエディタとか)で開いて正規表現置換で§¥r¥を空に置換すればよい
493: (ﾃﾃﾝﾃﾝﾃﾝ MM86-J9E+) 2020/10/07(水)20:05 ID:7ZMz7DKjM(2/2) AAS
訂正
§¥r¥n
494: (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/07(水)20:27 ID:FTOZLATq0(2/3) AAS
>>492
なるほど…めちゃ助かります。ありがとうございます。
495: (ﾜｯﾁｮｲ 8ae6-SfJD) 2020/10/07(水)21:05 ID:8t5FIA980(1/2) AAS
もっと面白い質問しろよ
496: (ｱｳｱｳｳｰ Sa2f-tQNK) 2020/10/07(水)21:08 ID:EPmDsevha(1) AAS
やんやんつけ棒って何？
497(2): (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/07(水)21:08 ID:FTOZLATq0(3/3) AAS
申し訳ありません、もう一点
A1：私は実は理学部出身
A2：の元々は地質学者です
A3：
A4：こうした南鳥島で
A5：
A6：レアアースの濃集が
A7：起こる
A8：
A9：というのは
省14
498(1): (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/07(水)21:11 ID:JTTOzasI0(1/2) AAS
>>497
その条件2つそのままコードに直していけるよ
499(2): (ﾜｯﾁｮｲ cbda-xYNh) 2020/10/07(水)21:17 ID:ueKkqa210(1) AAS
改行がLfなのかCrなのかCrLfなのか知らんが
Replace("改行入りの文字列", vbLf, "")
500: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/07(水)21:58 ID:JTTOzasI0(2/2) AAS
>>499
そんなことしたら改行しなくなるが…
501: (ﾜｯﾁｮｲ ca6d-zMau) 2020/10/07(水)22:16 ID:XaxSLEYL0(1) AAS
いつものクレクレ君かな
502: (ﾜﾝﾄﾝｷﾝ MM3a-pCej) 2020/10/07(水)22:51 ID:7uT04k8fM(1) AAS
・コードを要求
・追加で教えて
いつもの人だね
503: (ﾜｯﾁｮｲ 8ae6-KV+F) 2020/10/07(水)22:54 ID:8t5FIA980(2/2) AAS
普通に書けばできることを聞く意味が分からん
もしかして書けないの？
書けないならやめればいいのに
504: (ﾄﾞｺｸﾞﾛ MM02-dHQN) 2020/10/07(水)22:56 ID:Az9cGqg8M(1) AAS
>>498
>>499
ありがとうございますm(__)m
505: (ﾜｯﾁｮｲ 67da-xYNh) 2020/10/08(木)01:49 ID:584FeZ4r0(1/2) AAS
>>497
VBAに慣れている人なら簡単に自動化というかVBAで組める内容ではある
問題はこの程度の内容を質問するより先に、自力でできるとこまで自分で
やらなかった最初の一歩が間違っているんだと思う
506: (ｱｳｱｳｳｰ Sa2f-J9E+) 2020/10/08(木)09:04 ID:BqKPxLQJa(1) AAS
CSVとして保存
VSCode等のまともなエディタで開く
([^¥r]+)¥r¥n([^¥r]+)を”$1¥r¥n$2”に置換
¥r¥n¥r¥nを¥r¥nに置換
Excelにインポート
>>492同様にワンショットでいいならこんな感じでいけるんじゃね
507(1): (ﾜｯﾁｮｲ 67da-tQNK) 2020/10/08(木)14:32 ID:584FeZ4r0(2/2) AAS
それができないのが初心者
508(2): (ﾌﾞｰｲﾓ MM76-HnI9) 2020/10/08(木)15:37 ID:d1cy1ieUM(1) AAS
クレクレ君のより煽ってる奴のがうざいんだけどね
VBAだけが人並にできるからこのスレにいつも欠かさず覗きにきてる感じか？
いつものお前が邪魔ですよお
509: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/08(木)15:59 ID:btiqMG+Y0(1) AAS
>>508
大丈夫スルーしてるから
遠まわしでも構うと同列に
510: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/08(木)17:05 ID:+6fedHspM(1) AAS
>>508
くれくれ君本人乙
511: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/08(木)19:30 ID:bwT1M8vM0(1) AAS
>>507
できないことは問題じゃない
やろうとしないことが問題
512(1): (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/08(木)19:55 ID:YPYO8uSI0(1) AAS
たしかにやろうとしないことが問題
てのは御指摘のとおりですね。すみません。
映像制作を生業としてますが普段tipsを聞くのりで聞いてしまいました。
513: (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/08(木)20:04 ID:KjDVO4Tm0(1) AAS
>>512
5chなんて便所の落書きなんだからそれでいいと思う。
ただ、まともな返事を期待して馬鹿を見ても仕方ない場所でもあるけれど。
514: (ｽﾌｯ Sdea-gn5F) 2020/10/08(木)21:04 ID:DcpygGCOd(1) AAS
ただでさえ印象悪いのにどうでもいい言い訳まで付けてさらに印象悪くするよくあるパターン
515(1): (ﾜｯﾁｮｲ 6bda-q18j) 2020/10/09(金)00:24 ID:t8qEIjmh0(1/3) AAS
Dim dw As Date
Dim i As Integer
Sub test()
'ランダムに並び替える
Randomize
'乱数を入れる
For i = 1 To 200
Cells(i, 2) = Rnd()
Next i
'乱数で昇順並び替え
省12
516(1): (ﾜｯﾁｮｲ 6bda-q18j) 2020/10/09(金)00:26 ID:t8qEIjmh0(2/3) AAS
>>515
のdw = DateAdd("S", 5, Now)
Application.OnTime dw, "test"
を入れると、
「実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」
となってしまいます。
「マクロのセキュリティ」は「すべて有効」にしています。
どうすればいいでしょうか
517(2): (ﾜｯﾁｮｲ 4a2f-Dl/i) 2020/10/09(金)00:56 ID:8xBy2vBw0(1) AAS
>>516
そのプロシジャを標準モジュールに書く
CellsとかRangeとか、ちゃんとシート指定しといたほうが良いぞ
518: (ﾜｯﾁｮｲ 6bda-q18j) 2020/10/09(金)01:28 ID:t8qEIjmh0(3/3) AAS
>>517
できました！
＞CellsとかRangeとか、ちゃんとシート指定しといたほうが良いぞ
わかりました
ありがとうございました。
519(3): (ﾜｯﾁｮｲ 0f41-ICsZ) 2020/10/09(金)16:14 ID:SmS5zjtB0(1) AAS
1,1,2,2,3,4,4,4,5,6
を
1-1,1-2,2-1,2-2,3,4-1,4-2,4-3,5,6
に変換したいのですが、どういうコード書けばよいのでしょうか？
520: (ﾜｯﾁｮｲ 4aad-YPNF) 2020/10/09(金)16:19 ID:5DciVe+j0(1) AAS
連想配列使ってカウントするか(0 to 対象の値のMax)の配列を用意して、Array(対象の値)にカウントするかが１番頭使わなくて済むかな？
521: (ﾌﾞｰｲﾓ MM76-HnI9) 2020/10/09(金)16:55 ID:9cfuJ5OLM(1) AAS
かなり前だけどこのスレで教わったアドバイスが今やってることでピンときた
タブ増やして進めてくより
userformをhideとshowで工程進めてくみたいにしたほうがいいわ
ありがとうかなり前に教えてくれた人！
522: (ｱｳｱｳｳｰ Sa2f-5jeW) 2020/10/09(金)17:52 ID:OU1KT8YFa(1) AAS
>>519
fori=1 to 要素数(※要素数はカンマで区切られた数)
数字=数字 ＆ “-” ＆ i
next i
みたいな感じで
前の数字と違ったら数字をリセット
(iが1ならこの処理はしない)
要素がひとつなら処理せず次のiに
523(1): (ﾜｯﾁｮｲ 2a4b-XTxo) 2020/10/09(金)18:03 ID:klvVBjUq0(1) AAS
next i って書く人嫌い
524: (ｻｻｸｯﾃﾛ Sp03-+ixC) 2020/10/09(金)18:15 ID:FzRk+nqKp(1) AAS
かなり前の話と言えば
昔Privateで書かれたプロパティを
外部から取得する方法を書いてた人がいたけど
あれどうやるんだったっけ
525: (ﾜｯﾁｮｲ 03e5-SfJD) 2020/10/09(金)18:33 ID:/2wG1kS20(1/2) AAS
内部から漏洩させるのが確実
526: (ﾜｯﾁｮｲ 03e5-SfJD) 2020/10/09(金)18:36 ID:/2wG1kS20(2/2) AAS
>>523
それ以前にまったく要望を満たしていない
527: (ｽﾌﾟｯｯ Sd8a-Kms5) 2020/10/09(金)21:13 ID:hr48HmJ4d(1/2) AAS
>>517
俺はブックも必ず指定するけどね。
528(1): (ｽﾌﾟｯｯ Sd8a-Kms5) 2020/10/09(金)21:15 ID:hr48HmJ4d(2/2) AAS
>>519
どうしたいのかもう少し言葉で説明してくれる?
529: (ﾜｯﾁｮｲ cbda-xYNh) 2020/10/09(金)21:41 ID:KqgB0xuS0(1) AAS
>>519
普通にカウントアップして、1から2に、2から3に上がるときにカウンターリセット。
530(1): (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)21:44 ID:VcvC9Dp/0(1/6) AAS
1つしかなかった時に連番を付けない処理が一手間多くて面倒
データの先読みが必要になる
531: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/09(金)21:49 ID:5R2Ih+qA0(1) AAS
出力タイミングを次の数字を見てからにすれば楽
532: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/09(金)21:49 ID:2P2kQgrz0(1) AAS
1個でも複数でも変わらない
おかしな考え方してるんだろう
533(1): (ﾜｯﾁｮｲ 8ae6-SfJD) 2020/10/09(金)21:49 ID:hWEYACMU0(1) AAS
>>528
1.処理速度
2.低コスト
3.低ステップ
4.読みやすさ
優先順位はとりあえずこんな感じで頼むわ
534(1): (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:02 ID:VcvC9Dp/0(2/6) AAS
次の数字を見るかどうかの所で配列の最後かどうかも判定する必要があって面倒
シンプルでうまい方法があるんなら言葉じゃなくてコードで答えてくれ
535: (ﾜｯﾁｮｲ 0b3d-5jeW) 2020/10/09(金)22:06 ID:rNmj4HJx0(1/2) AAS
splitでカンマ区切りの配列化
instrで個数確認
かね？
536(1): (ﾜｯﾁｮｲ 0b3d-5jeW) 2020/10/09(金)22:07 ID:rNmj4HJx0(2/2) AAS
>>534
Uboundで判定して抜ければいいじゃん
537: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:19 ID:VcvC9Dp/0(3/6) AAS
>>536
ちゃんと動くコード書いてみて
538: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:24 ID:VcvC9Dp/0(4/6) AAS
AA省
539: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:47 ID:VcvC9Dp/0(5/6) AAS
AA省
540: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)23:08 ID:VcvC9Dp/0(6/6) AAS
b(i) = b(i) & "-" & c
↓
b(i) = b(i) & -c
541: (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/09(金)23:19 ID:760t1BpC0(1) AAS
プログラミングのお題スレにも、たまにあるけど、
次の要素を先読みするのは面倒
スタックのpeek みたいに、要素を読み取るだけで、削除しない関数があればよい
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次元配列にする
上下前次1-新書関写板覧索設栞歴
あと 459 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.044s