[PR]
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
VB・VBAでSJISからUTF-8に変換する
winだとS-JISですが、Webの世界だと最近UTF-8を使う事が多いcatsです。
ローカルで作ったファイルの文字コードをイチイチUTF-8へ変換するのが面倒なので、一括で変換出来るVBA作りました。
'引数「FN」にファイルのフルパスを入れます。
Function SJIS_to_UTF8(FN As String)
Dim FROM_OBJ As Object
Dim TO_OBJ As Object
Set FROM_OBJ = CreateObject("ADODB.Stream")
With FROM_OBJ
.Type = 2
.Charset = "shift-jis"
.Open
.LoadFromFile FN
.Position = 0
End With
Set TO_OBJ = CreateObject("ADODB.Stream")
With TO_OBJ
.Type = 2
.Charset = "utf-8"
.Open
End With
FROM_OBJ.copyto TO_OBJ
TO_OBJ.Position = 0
TO_OBJ.savetofile FN & "_utf.txt", 2
End Function
[27回]
ホームページを作りました
ファイルの存在を確認して、削除後に新規作成
Function MKFile(FN As String)
'引数「FN」：ファイルのフルパス
'ファイルの有無をチェックして、あれば削除し、新規作成する
On Error GoTo ERSKIP
Dim FSO As FileSystemObject
Dim TXTSRM As TextStream
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FN) Then
Call FSO.DeleteFile(FN, True)
End If
Set TXTSRM = FSO.CreateTextFile(FN)
Set FSO = New FileSystemObject
Set FSO = Nothing
ERSKIP:
If Not TXTSRM Is Nothing Then
Call TXTSRM.Close
Set TXTSRM = Nothing
End If
End Function
[0回]
漢字からフリガナを変換する
漢字の文字はあるけども、フリカナをイチイチ入力するのってめんどいですよね。
そんな時、エクセルオブジェクトを使いフリガナを抽出するサンプルを下記に書いておきます。
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Dim TMP As String
Dim EXL_OBJ As Object
Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset
Set EXL_OBJ = CreateObject("Excel.Application")
SQL = "SELECT * FROM [テーブル名]"
RS.Open SQL, CN
Do Until RS.EOF
TMP = EXL_OBJ.GetPhonetic(RS!漢字)
SQL = "UPDATE [テーブル名] SET フリガナ='" & TMP & "' WHERE 主キー='" & RS!主キー & "'"
CN.Execute SQL
RSA.MoveNext
Loop
[1回]
最近よく見る新聞記事
最近、新聞の記事で「クラウド」って言葉をよくみます。
言葉の意味はWikiを見て下さい。
クラウドのwikiはこちら
昔の「ホスト⇔ダム端末」に戻るみたいで、個人的には好かない感じです。
クライアントで出来る事はクライアントでして、サーバーでやる事はサーバーでする方が、負荷分散されていて良い様に思えるのは、もう考えが古いのでしょうかねぇ。
catsが個人的に考える現時点のクラウド問題点
・セキュリティ
多くの企業が公開型の基幹システムには慎重になっていたり、だから、NTTがクラウドのセキュリティの研究開発をはじめたのもその表れだと思う。
今、クラウドにするなら、顧客情報等が流出した時はどちら側が責任を取るのかなど、細かい部分(顧客情報流出に限らず)まで、きちんと取り決めをしておいた方が良いと思います。
まあ、これは各種機器を入れたりすれば何とかなりそうだけど、それにはそれで費用がかかる。
レスポンスの問題などもあるので、固定料金で使い放題ってのは考えづらい。
てなると固定料金にプラス「１台いくら」とか「データ量でいくら」とかって話になると思う。
そうなった時に１台当りにいくらの費用がかかるかで、普及するかしないか決まってきそう・・・。
そういえば、山梨のどっかの市町村が定額給付金のシステムに採用したらしいけど、セキュリティは大丈夫なのでしょうかねぇ？
どちらにしても、きちんとした形が出来るまであと数年はかかりそうですね。
注.これといった根拠があって書いた訳ではありません。個人的な考えですから、こんな考えの人もいるんだ位に読んで下さい。
[0回]