• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Active Basic EditBoxや文字列内での改行を無視したい）

Active Basicの文字列表示プログラムに改行を無視する方法

このQ&Aのポイント
  • Active Basicのプログラムで文字列を表示する際に、改行を無視する方法を知りたいです。
  • 現在、Active Basicの4.23.00を使って文字列表示プログラムを作成しています。しかし、OpenとInput命令語を使用しているため、改行が入ると文字列の読み込みが正しくできません。
  • どのようにすれば、文字列を読み込む際に改行を無視することができるのでしょうか。知っている方がいらっしゃいましたら、教えていただきたいです。

質問者が選んだベストアンサー

  • ベストアンサー
  • redfox63
  • ベストアンサー率71% (1325/1856)
回答No.1

Inputでは無理でしょうね そのファイル内の読み込むバイト数は決まっているのでしょうか 決まっているのでしたら Fieldで読み込むバイト数を決めておいて Getで読み込むといった手法でしょう Dim ss as String, hEd as HWND if flag = False then 　　Open "ファイルパス" for input as 1 　　' 読み込むバイト数を設定 　　Field #1, 16 end if Get #1,,ss hEd = GetDlgItem( hMainWnd, EditBox2 ) ' CRLFがあるかをチェック dim n as integer n = InStr( 1, ss, Chr$(13) & chr$(10) ) While n 　　dim w as String 　　' CRLFの手前までを記憶 　　w = Left$(ss, n - 1 ) 　　' CRLF以降を抽出 　　ss = w & Mid$( ss, n + 1 ) 　　' まだCRLFがあるのかをチェック 　　n = InStr( 1, ss, Chr$(13) & chr$(10) ) WEnd SetWindowText( hEd, ss ) といった具合でしょう

if-so-at
質問者

お礼

なるほど・・・ 読み込むバイト数が決まっていたら、そうできるのですか。 Getは使ったことが無いので、初めての領域です。 頑張ってみます

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

注目のQ&A

カテゴリ

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

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