VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/01/15(Thu) 19:44 |
| 投稿者 | ： YU |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 教えて下さい。 |
はじめましてVB初心者の YU と言います。
現在、改行コードのついてないデータファイルを読み込み、
1レコード256バイト(文字)に区切って新規のファイルを作成するというプログラムの作成中です。
データの中身がすべて半角文字のデータだとうまくいくのですが、
全角文字のデータが入っているとうまくいきません。
解決方法を知っている方がいましたら終えて下さい。よろしくお願いします。
下記サンプル
Dim IND$, OUTD$, LEND#
Do While Not EOF(1)
Line Input #1, IND
LEND = 999999
Do Until LEND = 0
LEND = Val(Len(IND))
If LEND = 0 Then
Else
OUTD = Mid$(IND, 1, 256)
Print #2, OUTD
IND = Mid$(IND, 256 + 1, LEND - 256)
End If
Loop
Loop
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）