• ベストアンサー

テキストファイル操作で６０行ごとに空白をあけるには？

siddhaarthaの回答

  • ベストアンサー
回答No.1

VB6.0なのか.NETなのか分かりませんが、言葉で表すならば 「60回ループして改行コード（vbcrlf）を書き込む」でどうでしょう？ 何度も同じ処理があるようですので、上記を関数にして 60行の改行を入れたい時に呼び出すようにするのが良いでしょう。

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • テキストファイルから空白行をよむ

    空白行を含んだテキストファイルをよみこんで、それをそのまま表示するプログラムをつくりたいのですが、BufferedReaderのreadLineを使うとnullが返ってきてしまいます。どうすれば空白行ということがわかるのですか。

  • 空白や改行を消して１行にするのを何て言いますか？

    今、サイトのコーディング作業をしてるのですが、 空白や改行を消して１行にするのを何て言いますか？ なんか「バリなんちゃら」とか、 カッコイイ言い方があった気がしたのですが、 思い出せません。ひょっとしたら思い違いかもしれません。 Google検索でもうまく見つけられず、しょうもない質問ですみません。

  • EXCEL1行おきに空白行を追加したいのですが、

    データが行方向にたくさん連続して入力されたリストがありますが、１行おきに空白行を挿入したいのです。 その都度、「右クリック→行番号選択→挿入」では、時間がかかり過ぎてしまいます。 たとえば、1000の空白行を１行おきに一気に挿入する方法はないでしょうか。ご教授くださいませ。

  • 空白行は何のためですか？

    疑問に思ったので、それぞれのお考えをお聞かせください。 絶対必要ではない、文字の無い空白行（↑この行の事です）。 私の場合は、作文の段落のように使っています。 回答は短いに越したことはない、とは思いますが、 あまり文字が繋がると読みにくいので… 私の自分ルールはさておき。 一行ごとに空白行を入れて、文面が縦に長～くなっている 回答者の方を見掛けることがあります。 また、３～４行？　程も改行して、大きな空白を作っている 回答者の方も。文字数より空白が上回っていたり。 あれは何のためなのでしょう？　素朴な疑問です。

  • PowerShellでテキストの空白行が消えない

    PowerShellを使ってあるテキストを整形したいのですが、ネット上の文献等を参考にしてもまったく思い通りに動いてくれません。 どなたかお助け願えませんでしょうか。 下記のテキスト例をコピペしてもらうとわかると思いますが、最初から空白行があり、かつ文字列の後ろに無駄なスペースがあります。 整形の仕様として ・文字列「------------　　」と「Power Shell　」は不要 ・空白行不要 ループで不要な文字列は手始めに置換します。 そうするとさらに無駄な空白行が増えてしまうのでそれを削ることをしたいわけなのですが、行を削除する関数が見つかりません・・・ おまけに「`n`r」を検索して""と置換してみても行は消えません・・・ どなたか詳しい方いらっしゃいましたら教えて下さい。 よろしくお願いいたします。 ＜テキスト例　ここから＞ ------------　　 Power Shell　 AAAAAAA AAAA BBBBB bbbbb CCCCCCCCCCCCCCCCCCCCC DDDDD EEEEEE F ＜テキスト例　ここまで＞

  • 空白行の削除について

    いつもお世話になっております。 どうぞよろしくお願いします。 1行目から100行目までのデータが入力されています。 次に行をあけてデータが入っています。 コマンドボタンでデータとデータの間の空白行を削除したいと思っています。 ご教授よろしくお願いします。

  • Excelで１行置きに入れた空白行を削除したい

    QNo.7098860「Excelで１行置きに空白行を挿入するには」で答えてくれました usami33さん、kyboさん、nobu_suzuki1さん、kiyosatonoさん、mike_gさん、 ありがとうございました。 mike_gさんたちが教えてくれた方法（A列にSerial番号）で順調に進んでいますが、 今度は挿入した空白行を一辺で削除する方法を教えてくださいませんか？ 何から何までお手数をお掛けしますが、宜しくお願いいたします。

  • 空白行になるまでループし、印刷するマクロを教えて下さい

    シート１にデータがあり、シート２にvlookup関数を使用して、 番号に対応する登録番号・所属・氏名を表示させるようにしました。 質問なのですが、 A2に番号が1～３まであり、空白(空白行)になるまで シート2に登録番号・所属・氏名を表示させ 番号ごとに印刷をしたいと思っています。 シート2に番号１の内容(登録番号・所属・氏名)を表示させ印刷し、 印刷後、シート2に番号2の内容を表示させシート2印刷し、 印刷後、シート2に番号3の内容を表示させシート2印刷し、 番号行が空白になったらこの処理を終了するというマクロを作りたいのですが、 どのようにしたらよいですか。 初心者でよく分からないのですが。 皆さん教えて下さい。 【シート１】 番号 登録番号 氏　名 所属学科 職名 1 00001 田中　健太 機械工学科 教授 2 00201 音　　 光 機械工学科 講師 3 01525 鈴木　洋　 機械工学科 助手 【シート２】 番号 登録番号： 所属： 氏名：

  • VBAの行削除について

    VBAで行を削除したいです。 データが何百行かあって、その下から空白行が最終行までできています。 その空白行部分を削除したいのですが。 どのようにコーディングすればいいのですか？

  • 空白セルがある行の左寄せ操作の件

    下記のようにＩ列に空白セルを検出し、その空白セルがある行においてＩ列からＭ列までのデータを左寄せする処理行っております。 For 番号 = 1 To Range("B1").End(xlDown).Row 　If Cells(番号, 9).Value = "" Then 　　 コピー開始列 = Cells(番号, 9).End(xlToRight).Column 　　 Range(Cells(番号, コピー開始列), Cells(番号,13)).Select 　　 Selection.Cut Destination:=Range(Cells(番号, 9),Cells(番号, 9 + 14 - コピー開始列)) 　　 Range(Cells(番号, コピー開始列), Cells(番号,13)).Select 　End If Next 番号 対象行数が３０００行ほどあり処理時間がかかりすぎるため、もう少し効率よいやり方があれば教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する