昨日から見てる。楽しい。 いまだに好きな曲。Virtual Insanity Music – Music News, New Songs, Videos, Music Shows and Playlists from MTV好きなPV。 Music – Music News, New Songs, Videos, Music Shows and Playlists from MTV最近よく聴いている。Cr…

qw演算子では対象となる文字列がどこからどこまでなのかを示すために同じ記号を使って区切り文字とします 区切り文字はstartとendが同じならばどの記号でもよい。 qw/ 対象となる文字列 / qw( 対象となる文字列 ) qw{ 対象となる文字列 } qw[ 対象となる文字…

配列の場合は、変数の頭は@ 何個必要かは宣言しなくてよいみたい。 インデックスは0から。 Perlの配列では、その配列が管理する要素数は自動的に拡張されたり縮小されたりします。 my @week; $week[0] = "月曜"; $week[1] = "火曜"; $week[2] = "水曜"; for …

リスト…複数の値を表すのに使用。not 配列。 my ($var1, $var2, $var3); ($var1, $var2, $var3) = (値1,値2,値3);

use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my $count = 1; while (1){ print "$count\n"; $count++; #while文、until文、for文、foreach文の他に…

use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my @fruit = ("りんご", "メロン", "イチゴ"); foreach my $name (@fruit){ print "$name\n"; } print …

use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my $num; $num = 5; #elseif じゃなくて elsif if ($num > 0){ print "正の数です\n"; }elsif ($num < …

演算子 名前 記述例 意味 && 論理積 AND a && b aとbが共に真の場合に真 || 論理和 OR a || b aかbの少なくとも1つが真の場合に真 ! 否定 NOT !a aが真の時に偽、偽の時に真

演算子(数値) 演算子(文字列) 記述例 意味 meaning == eq a == b bがaに等しい String equality (== is numeric equality). != ne a != b bがaに等しくない String inequality (!= is numeric inequality). > gt a > b bよりaが大きい String greater than. …

'全角数字を半角数字に With objRange.Find .Text = "[０-９]" .Replacement.Text = "" .Forward = True .Wrap = 1 .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .…

Set objDoc = objWord.Documents.Open(strArg) Set objSelection = objWord.Selection Set objRange = objDoc.Range() objSelection.Find.ClearFormatting objSelection.Find.Replacement.ClearFormatting With objSelection.Find .Text = "," .Replacement.…

'#1 フォルダ全部のファイルでやる場合 Const wdReplaceAll = 2 'start strDir = InputBox("ディレクトリ名を入力してください。") '#1 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") '#1 Set objFolder = objFSO.GetFolder(strDir) '#1…

Set objDoc = objWord.Documents.Open(strFileName) '文字数42 objDoc.PageSetUp.CharsLine = 42 '行数 objDoc.PageSetUp.LinesPage = 38

Set objDoc = objWord.Documents.Open(strFileName) 'フォント objRange.Font.Name = "ＭＳ 明朝" objRange.Font.Name = "Times New Roman" objRange.Font.Size = 10

Set objDoc = objWord.Documents.Open(strFileName) '余白 '上19mm objDoc.PageSetUp.TopMargin = objWord.MillimetersToPoints(19) '下19mm objDoc.PageSetUp.BottomMargin = objWord.MillimetersToPoints(19) '左16mm objDoc.PageSetUp.LeftMargin = objWo…

Set objDoc = objWord.Documents.Open(strFileName) 'B5サイズに変更 objDoc.PageSetUp.PaperSize = 11 用紙サイズ定数抜粋 wdPaper10x14 = 0 wdPaper11x17 = 1 wdPaperA3 = 6 wdPaperA4 = 7 wdPaperA4Small = 8 wdPaperA5 = 9 wdPaperB4 = 10 wdPaperB5 = 11

私は整理するのが苦手です。 （ちなみにノートをとるのも苦手です。）で、ちょっと前に佐藤可士和の『佐藤可士和の超整理術』とか読んだわけです。 なるほど。って思った点↓ ・同じ形の収納用具でそろえる。（なんでも入れられるような箱にしてた。） ・週に…