CSVをVB(input)で読み込んだ場合に数値を文字列として読込みたい。
- VBを使用してCSVを読み込み、数値を文字列として取得したい場合について相談です。
- CSVファイルをVBのinput関数を使用して読み込むと、数値データが自動的に変換されてしまいます。
- input関数を使用した際に、数値データを文字列として正しく読み込む方法についてアドバイスをいただけませんか？
- ベストアンサー
CSVをVB(input)で読み込んだ場合に数値を文字列として読込みたい。
初めまして。個人的にＶＢ６．０を勉強しています。教えてください。 【概要】 ＶＢを使用し、ＣＳＶの読込(input #)→編集→ＴＸＴで出力(White #) する場合、inputの読込段階でデータが自動変換されてしまう。 【内容】 CSV（カンマ区切）のデータです。 (例) シメイ，住所（都道府県），市街局番，番号 小林○○，千葉県○市○○，011，111-1111 佐藤○○，埼玉県○市○○，009，999-9999 input #で読込むと、市外局番の頭０(ゼロ)が省略され【11】や【9】と読込まれてしまう。 なんとか文字列として【011】や【009】と読込みたいです。 【奮闘記】 input #を使用し上記ファイルを＋読込んでいます。 （line inputで読み込むと１列全てが結合された文字列となってしまうので、電話番号を結合するなど、編集ができなくなってしまうので） input #として読込んだ段階で、数値として自動変換されてしまっているので、どうすればよいものなのか。。。 どんなアドバイスでも助かります！！よろしくお願いします。
- VBviginner
- お礼率60% (3/5)
- Visual Basic
- 回答数1
- ありがとう数5
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 > input #として読込んだ段階で、数値として自動変換されてしまっている ということですが、受け取り変数をString型にすれば 問題ないと思います。 Sub TEST() Const cnsFILENAME = "D:\TEMP\TEST_DATA.csv" Dim intFF As Integer Dim X(1 To 4) As String intFF = FreeFile Open cnsFILENAME For Input As #intFF Do Until EOF(intFF) Input #intFF, X(1), X(2), X(3), X(4) Debug.Print "(1)=" & X(1) & ", (2)=" & X(2) & _ ", (3)=" & X(3) & ", (4)=" & X(4) Loop Close #intFF End Sub
関連するQ&A
- ＣＳＶデータの文字列置換
かなり、困っております・・・。 「c:\csv_data」に複数のcsvデータが入っており、csvに含まれている "00ABC"を"00000"に変換させたいです。 （フォルダ内の全てのcsvを変換させたいです） 一度作ってみたんですが、Excel-VBAでCSVファイルを開いて編集をかけると書式が失われてしまう為、だめでした・・・。 そこで ・Excel-VBAでの良い方法 ・BATファイルで拡張子csv⇒txtに開いてからの編集⇒csvへ といった2つの方法（どちらか）がであれば作業工程上、他の処理と同時に 自動化できることからこの2つの方法での文字列変換方法を知りたいです。
- 締切済み
- その他（プログラミング・開発）
- VBでCSVファイルを取り込み、Accessに格納する方法
VBから、csvファイルを取り込んで、Accessのテーブルに格納したいので すが、Input# でうまくいきません。 csvファイルは、基本的に,区切りですが １）値の両端を"でくくる。 ２）値として"がある場合は、""に変換する。 という仕様です。（ExcelでCSVファイルを作るときと同じ） ３）先頭13列が、上記のような仕様 さらに14列目から290列目までは数値データで、値を""でくくらない。 データ例として、 "aaa","""値""",""",,","""値２,,""","bbb",・・・"ccc",0,1,2,・・・,276 === ====== ==== ========== === === = = = === 1 2 3 4 5 13 141516 290 1の値：aaa 2の値："値"," 3の値：",, 4の値："値２,," 5の値：bbb としてテーブルに取り込みたいです。 Access2000では、255列以上は取り込めないため、 １４列目以降の値を９個ずつ別レコードに分けています。 つまり、２２列のテーブルにレコード化しています。 レコード１：列１～１３の値＋列１４～２２の値 レコード２：列１～１３の値＋列２３～３１の値 ・・・ ２５５列の制限は仕方ないとしても、上記のようなCSVファイルを VBでAccessテーブルに取り込む良い方法を教えてください。
- ベストアンサー
- Visual Basic
- VB6 「Line Input」でのリークについて
VB6での「Line Input」命令使用時のメモリリークについて教えて下さい。 1分毎に3600行のCSVファイルを読み込むプログラムを作成しています。 （CSVファイルは1行500文字程度） 以下の【パターン１】は作成したプログラムの1部ですが、 （１）を3600回ループ時にパフォーマンスモニタでの「Private Bytes」が増加してしまいます。 （1ループ毎に増加せず、数十回ループする毎に増加します。） 試しに【パターン２】を作成し、CSVファイルはオープンのみ行い、 読み込みは行わずに、500文字の文字列が入った変数をコピーした場合は、 「Private Bytes」は増加しません。 基本的に違いは（１）と（２）の箇所だけなのですが、 「Line Input」命令の使用方法などで間違っている箇所があるのでしょうか？ ご存知の方、教えて下さい。お願いします。 【パターン１】 Private Sub read_Timer() Dim i As Long Dim CsvDataBuf(3600) As String 'CSV読込み変数 Dim FP As Integer 'ファイル番号 （省略） ： FP = FreeFile Open "C:\test.csv" For Input As #FP i = 0 Do While Not EOF(FP) And i <= (3600 - 1) Line Input #FP, CsvDataBuf(i) ←（１） i = i + 1 Loop Close #FP ： （省略） 【パターン２】 Private Sub read_Timer() Dim i As Long Dim CsvDataBuf(3600) As String 'CSV読込み変数 Dim tempBuf As String Dim FP As Integer 'ファイル番号 （省略） ： tempBuf = "～500文字の文字列～" FP = FreeFile Open "C:\test.csv" For Input As #FP i = 0 Do While Not EOF(FP) And i <= (3600 - 1) CsvDataBuf(i) = tempBuf ←（２） i = i + 1 Loop Close #FP ： （省略）
- ベストアンサー
- Visual Basic
- vb.netでCSVファイルを変換して新しいCSVファイルを作りたいの
vb.netでCSVファイルを変換して新しいCSVファイルを作りたいのですが、どのようにすれば良いかヒントを教えていただけないでしょうか？ A組,10代,10 A組,20代,20 A組,30代,30 B組,10代,40 B組,20代,50 B組,30代,60 C組,10代,70 C組,30代,80 この様なCSVファイルを変換して ,A組,B組,C組 10代,10,40,70 20代,20,50, 30代,30,60,80 という表のようなCSVファイルを作りたいのです。 データベースなどに入れずに、ファイルtoファイルでの変換がしたいです。 最初のファイルの1列目と2列目の項目をそれぞれ配列に入れて重複をなくす位までは思いつくのですが、そこから先がどの様にすれば良いかよく分かりません。 ヒントだけでも良いのでよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBを2008を用いてCSVを取り込む ””で区切られていない数値混入
VBを2008を用いてCSVを取り込む ””で区切られていない数値混入 文字列に，が含まれている場合がある。 題名どおりなのですが、以下のようなCSVファイルをVB2008で取り込もうと考えています。 "AAAAA",BBBBB,CCCCC,"DDDD,DDD","EEEEE","FFFFF" （同じアルファベットが本来同じ項目のデータ、BとCは0-9の数字のみ入ります またBCには常に””が含まれません。 Dは文字列なのですが、まれに「，」が含まれます） 下のものが現在使用しているソースですがsplitで「,」を指定しているので 当然Dが２つのデータとして認識されています。 BやCが””で囲まれていれば「”,”」で区切ればすむのですが一部が””なしなので どうやろうか迷っています。 実現したいこととしては ""なしの時は必ず、コンマまでが１つのデータ、 ""があれば""で区切られたデータが１つのデータとできればいいんですが。。。 以下ソースです。 ちなみにASPXファイルです。 （replaceDoubleQuotesというのは”を削除するための関数で無視していただいて結構です。 また以下のソースでは取り込み自体はせずにタイトル行がはいっているCSVファイルを弾く作業をしているのですが CSVからデータを取り出す作業は同じなので短いソースを使用させてもらっています） Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim Reader2 As New IO.StreamReader("C:\UploadedFiles\Uriage.txt", System.Text.Encoding.GetEncoding("Shift-JIS")) Dim Items2() As String 'CSVの各項目を表す配列 Dim Line2 As String = Reader2.ReadLine 'CSVの一行 Items2 = Line2.Split(",") Dim num_hantei As String = "^[0-9]+$" If Not (Regex.IsMatch(replaceDoubleQuotes(Items2(3)), num_hantei)) Then Dim objFSO As Object objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\UploadedFiles\Uriage.txt", True) objFSO = Nothing Label1.Text = "取り込みエラー。タイトル行がはいっている可能性があります。" Exit Sub End If Reader2.Close() End Sub Function replaceDoubleQuotes(ByVal apdata As Object) As String '文字列に変換する Dim tmp As String = String.Format("{0}", apdata) '1つのダブルクォーテーションを0個に置換する つまり消去する replaceDoubleQuotes = tmp.Replace("""", "") End Function
- ベストアンサー
- Visual Basic
- VB6.0 CSVファイル読み込みについて
VB6.0について質問です。 CSVファイルの読み込みを行いたいのですがうまくいきません。。。 以下のソースのどこに問題ありますでしょうか？＞＜ 14個のカンマ区切りのCSVファイルを読み込んでいますが ファイルのデータを変更するとインデックスが有効範囲にありませんというエーラーがでます。。。 ファイルは3行で構成しているのですがヘルプを参照したら複数行の場合はLINE Input #1, MyString(i)と書いてありました。 しかしやってみると行ごとのデータを取得してカンマ区切りで取得してくれませんでした。。。 以下のソースで実行すると改行部でエラーになるようです。 改行を無視するようなロジックを入れる必要があるのでしょうか？ Dim MyString(), i Open App.path & "\" & CSV_filename For Input As #1 ReDim MyString(13) Do While Not eof(1) Input #1, MyString(i) Label4(i).caption = MyString(i) i = i + 1 Loop Close #1
- ベストアンサー
- Visual Basic
- VBでCSVファイルを読み込む方法(最速方法は？）
こんにちは。VB6.0(SP5)、Windows2000でVBの勉強をしています。 VBのテキストボックスに入力したデータをCSVファイルに保存する時、もうすでに登録されていたらエラーを出したいと思っています。 そこで、CSVファイルを読み込み、同じかどうか確認したいと思っていますが、どの方法で処理するのが早く効率的なのでしょうか。 ファイル形式・・・csvで50行×3列 ----------- aaa,1,2 bbb,3,4 ・・・50行程度のデータ ----------- テキストボックスに入力したデータ・・・例えば"ccc" １．Open ファイル名 For Input As #fileNum でEOFまで読み、配列に入れ、その後1列目のデータが"ccc"かどうか確認する ２．Open ファイル名 For Input As #fileNum で読みながら、1列目のデータが"ccc"かどうか確認し、EOFまで繰り返す ３．DAOを利用し、SELECT文であるかないか確認する(DAO2.5) の３つの方法を試してみましたが、あるパソコンで行うとDAOが早いのに別のパソコンだとDAOが1番遅いなど、どれが効率的なのかよくわかりませんでした。 このような処理をしたい場合、みなさんはどのような方法で処理されますか？ 上記以外の方法でも構いません。アドバイスよろしくお願いします。
- ベストアンサー
- Visual Basic
- カンマの含まれる文字列の数値変換方法について
VB.NETでプログラミングしています。 String型の文字列を Double型の数値に変換するときに 一般的にはVal関数を使いますが、 カンマが含まれる文字列"111,111"を 数値変換したい場合には単純にVal関数を 使用しただけではうまくいかないようです。 上の例で数値変換すると"111"になってしまうようです。 そこで質問なのですが、 何か簡単にできるうまい方法はないでしょうか？ 関数があればご教示ください。 以下、Val関数の説明の抜粋です。 解説 文字列中に数字以外の文字が見つかると、Val 関数は読み込みを中止します。円記号 (\) やカンマ (,) など、通常は数値の一部と見なされる記号や文字も、Val 関数は数値として解釈しません。
- ベストアンサー
- Visual Basic
- エクセル２００２です。
住所録の電話番号からハイフンを消そうとしています。 電話番号の列を選んで 「編集」→「置換」と進んでハイフンを消す事に成功しました。 しかし、市外局番の頭に付いている「０」まで消えてしまいました。 この元データは他の住所録ソフトから吐き出したＣＳＶファイルです。ですのでエクセルが数字と見ていると思い、文字列に書式を変えて見ましたが、効果が無いようです。 どうすれば「０」が消えるのを防ぐ事が出来るのでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ある文字列で始まるセルの文頭に0、文中に－を入れたい
ある文字列で始まるセルの文頭に0、文中に－を入れたい エクセル2003を使用しています。OSはWINDOWS XPです。 エクセルのセルに045から始まる電話番号が5000件くらい入力されているのですが、中にたまに最初の0が削除され、市外局番、市内局番の後の-が削除されてしまっている状態のものがあります。 たとえば正しくは 045-123-4567 でないといけないのに 451234567 になってしまっている、という感じです。 こういうセルの最初に0をつけ、市外局番、市内局番の後に-を一括でつける方法はないでしょうか？ 45で始まるセルを抽出選択し、秀丸に移して最初に0、市外局番の後に-をつけることはできたのですが、それをエクセルにコピーして戻すことができません。抽出結果に貼り付けようとすると行を無視して1行目から順に上書きされてしまっているようです。 なので秀丸とのあわせ業はできないのかなぁ～と困っています。 教えてください。 よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。 ingeterではなくstringを使用するのですね？？ 早速やってみますｗ