タグ

関連タグで絞り込む (2)

タグの絞り込みを解除

UTF-8に関するcozyathtnのブックマーク (2)

  • ADODB.Streamを使ったテキストファイルの読み書き

    通常のテキストファイルの読み込みや書き込みだと文字コードがShift_jisでしか扱えません。 他の文字コードを使いたい場合はADODB.Streamを使います。 テキストファイルの読み込み Dim sr As Object Dim strData As String Set sr = CreateObject("ADODB.Stream") sr.Mode = 3 '読み取り/書き込みモード sr.Type = 2 'テキストデータ sr.Charset = "UTF-8" '文字コードを指定 sr.Open 'Streamオブジェクトを開く sr.LoadFromFile ("ファイルのフルパス") 'ファイルの内容を読み込む sr.Position = 0 'ポインタを先頭へ strData = sr.ReadText() 'データ読み込み sr.Close 'Streamを閉じる

    ADODB.Streamを使ったテキストファイルの読み書き

  • ファイルの操作(Shift-JIS/UTF8対応)[ExcelのVBA]

    Option Explicit Private Sub CommandButton1_Click() Dim fileNo As Integer ' ファイル番号 Dim buffer As String ' 一時的に文字列を格納 ' ファイルを開く為のファイル番号を取得 fileNo = FreeFile ' 指定されたファイルを開く Open "C:\excel_vba_22_sjis.txt" For Input As #fileNo ' ファイルがEOF(ファイルの終端)になるまでループをする Do Until EOF(fileNo) ' ファイルから一行づつbufferに読み込む Line Input #fileNo, buffer ' 読み込んだ一行をイミディエイトに出力 Debug.Print buffer Loop Close #fileNo End Sub 結果 正常にフ

    ファイルの操作(Shift-JIS/UTF8対応)[ExcelのVBA]
  • 1

お知らせ

もっと読む

公式Twitter

  • @HatenaBookmark

    リリース、障害情報などのサービスのお知らせ

  • @hatebu

    最新の人気エントリーの配信

はてなブックマーク

公式Twitter

はてなのサービス

  • App Storeからダウンロード
  • Google Playで手に入れよう
Copyright © 2005-2024 Hatena. All Rights Reserved.