http://ikedanobuo.livedoor.biz/archives/51319914.html きのうはノーベル賞受賞者6人が首相官邸を訪れて抗議したそうだが、小柴昌俊氏は「科学予算のうち、科学者に来るのは1割ぐらいしかない」と訴えたという。残りの9割を天下り官僚とITゼネコンなどの業…

Dim ret As Integer = (From c As String In ListBox1.Items Where c = file Select c).Count

http://news.livedoor.com/article/detail/4464424/ 『2ちゃんねる』で「邦画だけど面白い映画」として選ばれた映画作品名： 『サトラレ』（製作年 2000年） 出演者： 安藤政信、鈴木京香、内山理名 ・サトラレ観て泣け ・サトラレ出てたか。泣いた作品名： …

http://www.rakuten.ne.jp/gold/usmarket/ http://item.rakuten.co.jp/usmarket/10001156/ 安いですねぇ。Ｌは売り切れてました。残念・・・

http://www.carview.co.jp/bbs/104/4483/?bd=100&th=3049431&act=th 私もシルコンですが、以前にオートバックスで調色してもらったタッチペンは色が緑すぎて使えませんでした。 当たりはずれがあると思います。私は自分で塗装するときはディーラーからタッチ…

http://getnews.jp/archives/36972日本一インスタントラーメンを食べる女が選ぶカップラーメンBEST3インスタントラーメンをほぼ毎日食べているという美女・麻布台綾子さんは、『日本一インスタントラーメンを食べる女』（livedoor Blog）というブログを開設…

偏見、先入観の事らしい。

http://ascii.jp/elem/000/000/473/473863/ Kingston、容量40GBで9980円の安価なインテル製SSD発売 「インテル製SSD採用」(ツクモパソコン本店)というKingston製のSerial ATA対応2.5インチSSD 「SNV125-S2/40GB」が発売となった。 =========================…

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Not (e.KeyChar >= "0"c And e.KeyChar <= "9"c Or e.KeyChar = "."c) Then e.Handled = True End If End Sub

ちょっとメモ。。。 ちなみにテストに使った動画プレイヤーはMediaPlayerClassic-HomeCinema で。 表示のオプションの中にある、内部フィルタで、『DXVA』を有効/無効にするチェックボックスを使って設定します。□□□□□◇□□□□□◇□□□□□◇□□□□□◇□□□□□◇□□□□□◇□□□□□◇…

ちょーカワイイ http://yaplog.jp/lovecat3jp/ こんな風にネコまみれで暮らすのが夢です。 この子もカワイイ。 http://kotetsuroom.blog70.fc2.com/blog-date-200702.html

Dim FL As New List(Of String) Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If End Sub Public Function ExteJudge(ByVal FN As String) As Boolean '拡張子の種類…

Partial Class Form1 Public FL As New List(Of String) 'リストを作成 Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End Sub Public Function ExteJudge(ByVal FN As Str…

Public Function WhatIsGeometricBounds() Dim IllApp As New Illustrator.Application Dim IllDoc As Illustrator.Document Dim pItem As PathItem Dim temObj As Object IllDoc = IllApp.ActiveDocument For Each pItem In IllDoc.Selection Console.Write…

デカくてふわふわなネコちゃんが好きですが、嫁はコワいそうです。

Public Function GetCenter(ByVal pItem As Illustrator.PathItem) Dim CX, CY, Right, Left, Top, Bottom, Width, Height As Single 'GeometricBounds(0) : Left 'GeometricBounds(1) : Top 'GeometricBounds(2) : Right 'GeometricBounds(3) : Bottom 'な…

以前から「まるは食堂のエビフライはすごい。」と聞いていたので、 ドライブがてら行ってきた。 土曜日の朝11時に到着。すでに人がたくさんいる。 「うそやろ・・」と思い店内へ。１階は満席だった。「えー・・・」 ２階は開いているとのことなので、速攻階…

http://hitoxu.com/0868 「パソコン・周辺機器」などのカテゴリーで検索結果を表示させて、ブラウザのアドレスバーのURL末尾に「&pct-off=90-」と追加するだけ。「90」の部分を「80」や「70」に変更することで、他の割引率も検索することができます。 いいで…

http://news.livedoor.com/article/detail/4313001/ すごいですな。

ipodの調子が悪い。バッテリーの充電インジケーターはまだ残っているのに強制終了・・・再生不可。で、ググッてみるとありました。 http://hartwarmingclub.seesaa.net/article/38920731.html 1.GarageBandで３秒程度の曲を作りiPodへ転送 2.ひたすら3秒の曲…

文字コードの解析、変換（エンコード、デコード）http://seo.atompro.net/webtoolfree_strcnva_.html す、すごい・・・

PgItem.pageitemtype AiGroupItem = 3 'グループ AiPathItem = 5 'パス AiTextArtItem = 10 'テキスト

Imports System Imports System.IO Class ReadAllLines Shared Sub Main() ' シフトJISのファイルの読み込み Dim lines1 As String() = File.ReadAllLines("shiftjis.txt", System.Text.Encoding.GetEncoding("Shift_JIS")) ' UTF-8のファイルの読み込み Dim…

開始部分でデバッグを始める #If DEBUG Then ReDim Fs(0) Fs(0) = "F:\TOOLS\Mark\12341.ai" #End If

Public Function ExteJudge(ByVal FN As String) As Boolean '拡張子の種類、有無を判別 If System.IO.Path.HasExtension(FN) = False Then Return True '拡張子ナシの場合 Dim Extes() As String = {".ai", ".eps"} Dim Exte As String = String.Empty For …

Sub pastepaste() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub Sub main() Dim myCBCtrl As CommandBarButton Set myCBCtrl = Application.CommandBars("Cell").Controls.Add(Type:=msoC…

regexpの参照設定は「Microsoft VBScript Regular Expressions 5.5」

特殊文字 出力される文字 \b バックスペース \f 改ページ(フォームフィード) \n 改行(LF) \r 復帰(CR:キャリッジリターン) \t タブ \\ 通貨記号(またはバックスラッシュ) \" or \' 文字としてのクォーテーションマーク \uXXXX ユニコード文字 (JavaScript1.3…

Function GetFolder(str As Variant) '２．Split関数でファイル名を操作（XL2000のみ） 'Dim Var As Variant 'Var = Split(str, "\") '\マークを区切り文字にして配列化 'Dim i As Integer 'Dim fPath As String 'fPath = "" 'For i = 0 To UBound(Var) - 1 …

MS-Gothic MS-PGothic MS-PMincho MS-Mincho HGMaruGothicMPRO