ADODB.Streamでテキストファイルに追記する

VB,VBA
2014-06-17 - 更新:2014-08-19

ADODB.Streamを使って、テキストファイルに文字列を追加する方法をご紹介します。

基本的な使い方はこちら。
ADODB.Streamを使ったテキストファイルの読み書き – 2014-01-23
オプション等の説明は上記にて掲載していますので、今回は割愛します。

まずは変数を宣言

`1`	`Dim` `sr` `As` `Object`

`2`	`Dim` `strData` `As` `String`

オブジェクトを作成

`1`	`Set` `sr = CreateObject("ADODB.Stream")`

オプションの設定

1sr.Mode = 3 '読み取り/書き込みモード
2sr.Type = 2 'テキストデータ
3sr.Charset = "Shift_jis" '文字コードを指定

Streamオブジェクトを開いて、ファイルの内容を読み込みます。続きを読む…»

ACCESS, ADODB.Stream, VB, VBA

42,805 views

iOSでのフォームラベル

HTML
2014-06-12 - 更新:2014-08-19

iOSではHTMLタグ<label>が認識されないようです。

フォームのラベルはユーザーにとって当たり前というほど役に立ちます。
ですが、PCやAndroidではラベルのクリックイベントが認識されるのに、iOSでは認識されません。

そこで、ラベル付けに一工夫することで解決することができます。

例えば、チェックボックスを例にしてやってみましょう。

`1`	`<label` `onclick=""><input` `type="checkbox"` `name="test"` `value="1">チェック1</label>`

または

`1`	`<input` `type="checkbox"` `id="t2"` `value="2">`

`2`	`<label` `for="t2"` `onclick="">チェック2</label>`

空のクリックイベントを入れているところがミソです。

そして<head>内に、以下のJavaScriptを記述します。

`1`	`document.getElementByTagName("label").click(function(){});`

これでiOSでもラベルのクリックイベントが認識されるようになります。

参考URL:
http://blog.bluearrowslab.com/smartphone/topicks/55/

HTML, JavaScript

1,532 views

快適PCライフ @Sycom

IT総合
2014-06-11 - 更新:2022-04-27

私が使っているPCを紹介します。

サイコムさんで購入しました。
パーツを一つ一つ、自分で選択して注文すると、その通りに組んでくれて、
動作確認した上で納品してくれます。

会社のPCもサイコムさんで購入しました。
筐体は大きいですが、音が静かで動作もキビキビしています。

プライマリのディスクがいっぱいになっていきたので、
もう少し余裕を見ておけばよかったなぁと思いました。

本当は自作したいけど、時間がないという方におすすめです。

詳細スペック: CPU: Intel Core i7-2700K [3.50GHz/4Core/HT/HD3000/TDP95W] SandyBridge; CPU-FAN: Scythe KATANA4
http://www.scythe.co.jp/cooler/katana4.html; マザーボード: ASUS P8Z68-V PRO/GEN3 [Intel Z68chipset/Bluetooth搭載]
http://www.asus.com/jp/Motherboards/P8Z68V_PROGEN3/; メモリ: 8GB DDR3 SDRAM; HDD: 80GB SSD [Intel SSD 320 Series]; HDD: 500GB HITACHI; 光学ドライブ: LG DVD; ケース: CoolerMaster Silencio 550; 電源: ENERMAX; ビデオカード・サウンドカードはオンボード

興味ある方は一度ご覧になってください。
【公式】BTO パソコン（PC）の@Sycom（サイコム）

Sycom, 自作PC

1,566 views

次世代無線LAN規格 IEEE802.11ac

IT総合
2014-06-07 - 更新:2018-06-27

昨年、発表された次世代無線LAN規格「IEEE802.11ac」。
かなり速いらしい。

802.11nで最大600Mbpsのところ、802.11acでは最大通信速度（規格理論値）で約7Gbpsらしい。

NECやBAFFALO等各種メーカーから既に対応ルータが多数発売されています。

AtermWG1400HP | 製品一覧 | AtermStation
ちなみに、これまでの規格、802.11n/a/g/bももちろん使える。

IEEE, Wi-Fi, 無線LAN

2,987 views

Outlookメッセージファイル(.msg)からデータを取り出す – VBA

VB,VBA
2014-06-06 - 更新:2014-08-19

Outlookのメッセージファイル（.msg）から送信元アドレスや件名、本文等のデータを取り出すことができます。
よくあるのは、受信トレイのメールからデータを取り出したりしますが、今回は任意の場所にコピーしたメッセージファイル（.msg）からデータを取り出す方法をご紹介します。

まずは宣言

`1`	`Dim` `OL` `As` `Object`

`2`	`Dim` `msg` `As` `Object`

Outlookオブジェクトを生成

`1`	`Set` `OL = CreateObject("Outlook.Application")`

msgファイルを指定

`1`	`strFileName =` `"c:\sample.msg"`

メッセージファイルをオブジェクトに読み込む

`1`	`Set` `msg = OL.CreateItemFromTemplate(strFileName)`

各種データを取得します。

1Debug.Print "SentOnBehalfOfName: " & msg.SentOnBehalfOfName
2Debug.Print "SenderName: " & msg.SenderName
3Debug.Print "ReceivedByName: " & msg.ReceivedByName
4Debug.Print "ReceivedOnBehalfOfName: " & msg.ReceivedOnBehalfOfName
5Debug.Print "ReplyRecipientNames: " & msg.ReplyRecipientNames
6Debug.Print "To: " & msg.To
7Debug.Print "CC: " & msg.CC
8Debug.Print "BCC: " & msg.Bcc
9Debug.Print "Subject: " & msg.Subject
10Debug.Print "Body: " & msg.Body
11Debug.Print "HTMLBody: " & msg.HTMLBody
12'Debug.Print "Recipients: " & msg.Recipients
13Debug.Print "SenderEmailAddress: " & msg.SenderEmailAddress

プロパティについてはMSDNを参照しましたが、Recipientsはプロパティが存在しないとエラーが発生したのでスキップしています。
続きを読む…»

ACCESS, MSOffice, Outlook, VB, VBA

72,243 views