LastIndexOf と LastIndexOfAny を使うとイイよ。 Dim FilePath As String = "G:\sample1\sample2\sample3\test.txt" Dim UpDir As String = Path.GetDirectoryName(FilePath) 'G:\sample1\sample2\sample3 Dim tempCount As Integer = UpDir.LastIndexOf("\…

久しぶりに体重を量ったら、3.4kgだった。 息子が撮影したそうだ。 眼光が鋭いですな。

ワークシート追加 oBook.Sheets.Add(, , 1, )'(Before As Object,After As Object,Count As Object,Type As Object) ちなみに '移動 moveSheet.Move(,targetSheet)'(Before As Object,After As Object) 'コピー copySheet.Copy(,targetSheet)'(Before As Obj…

CInt(ID) '整数型 数値を文字列にするには CStr(ID) '文字列型

Dim xmlDoc As New XmlDocument xmlDoc.XmlResolver = Nothing

いやぁ、ずいぶん間が開いてしまいました。 みなさん、お元気ですか？ 最近のチャーさんは羽のおもちゃが大好き。 テンション上がります。 ゴロゴロー！ 激しいですな。 うおぉーー！ おらぁーーー！

最近更新が滞ってます・・・ ちょっと お疲れちゃーん なんです（´・ω・`） 息子が嫁に花をプレゼントした！ やるじゃないか息子よ！ 成長したなぁ・・・ 自転車に乗って買いに行く姿を想像すると、何だかほほえましい。 そしてこれがそのお花なのだが、あー…

鋭い右フックが炸裂！

最近やっと暖かくなってきたので、桜を見に公園へ。 天気が良いとイイ気分ですな。 飛行機雲

Imports System.Runtime.InteropServices.Marshal Imports System.Xml Imports System.Xml.Linq '------------------------------------------------------- Module OutXml Sub OutXmlTest() Dim Doc As New XDocument() Dim Declaration As New XDeclaratio…

ネコつながりで買ってみた。

プロパティ 値の型 説明 Height Single GeometricBounds に基づいて計算した PathItem の高さ（線の幅を除く）。 Width Single GeometricBounds に基づくPathItem の幅（線の幅を除く）。 Top Single PathItem の上端の位置。 Left Single PathItem の左側の…

何だか暖かくなったり寒くなったり・・・ 春が待ち遠しいニャー 嫁「・・・くつろいでるねぇ・・・」

明日スーパームーンらしいのだが、雨が降りそうなので今日撮ってみた。 Canon EOS Kiss X3 / SIGMA 28-300mm F3.5-6.3 DG MACRO 300mm ISO-100 F11 1/125秒 もう少しクレーターのゴツゴツ感が写るといいなぁ。

今日は息子の小学校の卒業式があった。 長いようで、あっという間の６年間。 大きく成長したなぁ。 これから中学生。元気に頑張って欲しいものだ。

Dim Str As String = "QWERTY12345456asdfghZXcvBNM" Dim Str2 As String = "25" Dim Str3 As String = "AA(B),CC(D),EE(F)" '左端の1文字を取得 Console.WriteLine(Str.Substring(0, 1)) 'Q '左から3番目の文字から5文字を取得 Console.WriteLine(Str.Subst…

職場から帰宅後、ニュース映像を見て絶句・・・ 被災地の方が一人でも多く無事でありますように。 私は東海地方在住なので「明日は我が身」。 東海地震または南海地震がおきた場合、影響のありそうな地域の方は準備が必要ですね。 ネットで見つけた地震対策…

ロールネコの作り方 こうやって、丁寧に形を整えましょう。 息子にされるがまま、大人しーくしてたんだって・・・

今日はネコの日なんだって。

嫁の妹ちゃんから息子にバレンタインのチョコが届いた。 とてもキレイ・・・ちょっと感動。 食べるのがもったいないなぁ。 どうもありがとう。

水槽がキタナいのはご勘弁・・・

二人共よく寝てる。

My.Computer.FileSystem.CopyDirectory(DataFolder, targetDir, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)

この口元がスキなんだなぁ 下から見上げてみる。 いいねぇ ・・・ ・・・ 「近いよ」

jojo要素があったりなかったりする場合 Dim jojo As String = c.Element("jojo").Value とするとエラーがでるよ。 そんな時はValueプロパティを使わずに、型変換すると良いよ。 Dim jojo As String jojo = CStr(c.Element("jojo")) '「要素が存在するかどう…

pathItem.BlendingMode = Illustrator.AiBlendModes.aiMultiply

Dim query = From c In xmlDoc.Descendants("item") Where c.@type = "msw" _ Select base = c.@id, mswType = c.@type Distinct Order By mswType, base For Each c In q2 Console.WriteLine(c.mswType & " _ " & c.base) Next

Dim query As IEnumerable(Of String) = From c In xmlDoc.Descendants("item") Where c.@type = "msw" Select c.@id Distinct

動物病院へ連れて行くためにケージに入れようとすると大暴れ・・・ 無理やりねじ込んだらすごく嫌そうな声で鳴いて、必死で逃げようとしていた。 病院の診察台では体勢を低くして、文字通り「借りてきた猫」のようにおとなしい。 耳がブルブル震えていて、相…

ちょっとメモ <frame src="./index.html" scrolling="no" style="border-bottom:1px solid #e2e3e4;"></frame>