VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/02/20(Thu) 12:04 |
| 投稿者 | ： 椋 |
| ＵＲＬ | ： |
| タイトル | ： Re^2: (続）スペース入り文字の改行 |
> 長くなったのでこちらに移動します。
>
> > それと、これはかなり理想の話ですが、印刷をしながらデータにスペースがあったら
> > 改行って言う形でのプログラムの作成って出来るものですか？
> > 今の自分には考えも付かないので到底無理だとは思うのですが、
> > 憧れという感じで想像してしまいました。出来たら凄いな・・・と。
>
> 別に難しい事ではありません。
> 前回も説明しましたが、 Instr 関数でスペースがあるか、あれば何文字目かを
> 印刷するまえに取得すればいいだけです。
>
> Dim MyName As String
> MyName = "VBレスキュー(花ちゃん)"
> MyName = Left$(MyName, InStr(MyName, " ") - 1) & vbCrLf & _
> Mid$(MyName, InStr(MyName, " ") + 1, _
> Len(MyName) - InStr(MyName, " ") + 1)
>
> Printer.Print MyName
>
> 前回封筒に印刷したいとおっしゃってたようですが？
> 具体的にはどのようなデータですか？ １件分のデータでも投稿して
> 頂ければもう少し具体的な説明ができるのですが？
>
お返事ありがとうございました。
データなんですが下記に書いてみますので宜しくお願いします。
「名前(),会社名(),役職(代表取締役 社 長),住所１,住所２,住所３,郵便番号」
と、いう形でデータがＣＳＶファイルで１０００行ほど入っています。
そのファイルを→一括読込み→フォームにあるテキストボックスに表示→印刷
っていう形で使用を考えております。その際、印刷はバイト数で扁平率の変更や、
実行時に表示しているテキストボックスの印刷、ファイル一括印刷など、
色々このサイトのヘルプを大いに活用させていただいております。
そして印刷実行をしている時に本題である”役職”印刷時にスペース文字があり、
２行改行にするソース作成にぶつかりまして、後はご存知の通りでございます。
最近は新たに葉書(縦書き系)の印刷時にアラビア数字を漢数字にと言う問題にぶつかっています。
これはデータを読み込みの際に変更をしないといけないようで日々上のスペース文字の改行と共に
悪戦苦闘しながら微力ながら頑張ってます。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）