こんなに違うんですねぇ。 一般的なコンパクトデジカメは「1/2.3型」 Kiss X3 の「APS-C」に比べてみるとすごく小さい。 夜間室内ストロボ非発光でボケボケだったのはコイツのせいだな。（ウデが悪いのは置いといて） 最近よく見るフォーサーズはそこそこ大…

エディタのメニュー - ツール - 参照設定 - Microsoft VBScript Regular Expressions 5.5 全角を半角にするサンプル Public Function setItem_RangeFormat(str As String) As String 'str = StrConv(str, vbWide) Dim RE As New RegExp Dim mc As MatchColle…

あっさりしてるけどうまみも十分にあった。 おいしかった。

Dim pItem As Illustrator.PathItem pItem = IllDoc.PathItems.RoundedRectangle(0, 0, 12, 6, 1, 2) 'RoundedRectangle( '[top As Single], [left As Single], 座標で位置を指定（オブジェクトの左上が基準） '[Width As Single], [Height As Single], 幅と…

弁当が無いのでさば漁に出かけた。 残念！ 無かったよ･ﾟ･（ﾉД`）･ﾟ･｡仕方が無い、最近お気に入りの日清 太麺堂々 濃厚魚介豚骨醤油にしようかと思ったが（最近魚介系が好き）、そういえばマクドナルドのカリフォルニアバーガーが、トマトが入っててうまそう…

これ、マジうまいっす。

くるみ入りのフランスパンを作ってみた。 今回の分量 材料 分量 付属ｽﾌﾟｰﾝ 銘柄 メモ 準強力粉 280g リスドォル フランスパン用準強力粉 バター 5g 有塩バター 塩 5g 小１ シママース 水 210ml ドライイースト 2.1g 小3/4 くるみ 40g 午後６時に仕込んで１０…

気持ち良さそうにウトウトしてる。さてドコでしょう？ ここです、食洗機。作動中は温水使ってるからチョー暖かいので、おなかをペッタリ付けてる。しかしザンッザンッゴゥンゴゥンうるさいんだが大丈夫なのか？ っつーかホワイトバランス違いすぎ(゜д゜）

内部エラーで止まる場合はcomオブジェクトの開放をしよう。 Private Sub GetText() Dim Illapp As New Illustrator.Application Dim IllDoc As Illustrator.Document IllDoc = Illapp.ActiveDocument Dim lItem As Illustrator.Layer Dim gItem As Illustrat…

SIGMA 28mm F1.8 はどうだろう？ 価格の割りに明るいし、20cmまで寄れるのは非常に魅力的だ。画角も35mm換算で45mmなので理想的じゃないか！よし、買いだ！買い買い！！ おっ、重量・・・500g・・・(゜д゜）・・・ちょっと重くねぇ？EF35mm F2 は 210g だぜ…

Public Sub aiSave() '処理したいファイルを別ディレクトリにコピーするためのフォルダを新しく作成します Dim SaveDocDir As String = Path.GetDirectoryName(Form1.FL(0)) & "\ai_" & Format(Now(), "yyyyMMddHHmmss") & "\" MkDir(SaveDocDir) Dim IllApp…

処理モジュールサンプル Imports System.IO Imports System.Text Imports System.Text.RegularExpressions Imports System.Runtime.InteropServices.Marshal Module IllClass_sample Dim FLs As New List(Of String) '処理するファイルパスを格納したリスト …

かわいすぐる(*ﾟ∀ﾟ)=3 ﾑｯﾊｰ!!

とりあえずメモ Function GetID(ByVal temID As String) As String Dim sortID As String = String.Empty Dim temNo As Integer = 0 'Formatがうまく動かない為仕方なく設定 Select Case fnConJudge2(temID) Case 1 '通常パーツ temNo = Microsoft.VisualBas…

とりあえずメモ Public Function fnConJudge(ByVal temID As String) As Integer temID = StrConv(Trim(temID), VbStrConv.Narrow) '前後の空白除去し半角大文字にする If Regex.IsMatch(temID, "^(([A-z]|[ｱ-ﾝ])[0-9]{1,3})$|^([ｱ-ﾝ][ﾞ|ﾟ]?[A-Z])$|^([0-9]{…

IllDoc.Close(Illustrator.AiSaveOptions.aiDoNotSaveChanges)

Dim DT As String = Now().ToString 結果 "2010/03/04 14:27:22" Dim DT As String = Format(Now(), "yyyyMMddHHmmss") 結果 "20100304143237" 日時を名称に入れれば重複を避ける事ができる。 Sub SaveDocDir() SDD = Path.GetDirectoryName(FilePath) & "\D…

イラストレーターの文字列の改行を削除したい。 NameStr = Replace(NameStr, vbCr, String.Empty) ミソは「vbCr」。「vbCrLf」ではうまくいかない。 ？？？おやおや？？ イラストレーターで処理しても削除されないぞ？？？ って事であーだこーだやってる内に…

粉末のかつお節をかけていただきます。うまいっす。

Dim tData As StreamWriter = New StreamWriter(outDir & "取得情報.csv", False, Encoding.GetEncoding("shift-jis")) tData.WriteLine("No,属性,名称") 'ヘッダ情報 For Each temStr In DataList tData.WriteLine(temStr) Next tData.Close() '閉じて確定

ヾ(oﾟωﾟo)ﾉﾞ モフモフ！