Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42505 / 76732 ←次へ | 前へ→

【39293】Re:固定長ファイルの作成
発言  ichinose  - 06/6/21(水) 16:49 -

引用なし
パスワード
   ▼質問 さん:
こんにちは。
モードをバイナリにしても出来ますが、固定長と言うのなら、
ランダムにしたほうがわかりやすいですよ!!

'=============================
Type recFormat
  f1 As String * 2
  f2 As String * 2
  f3 As String * 2
  crlf As String * 2
End Type
'=====================
Sub test()
  Dim rFormat As recFormat
  Dim fN   As Integer
  Dim myPath As String
  Dim mArray
  Dim i    As Long
  fN = FreeFile
  myPath = ThisWorkbook.Path
  Open myPath & "\AAAAAA.dat" For Random As #fN Len = Len(rFormat)
  mArray = Range("A1").CurrentRegion.Value
  For i = 1 To UBound(mArray, 1)
    With rFormat
     RSet .f1 = Len(mArray(i, 1))
     RSet .f2 = mArray(i, 2)
     RSet .f3 = mArray(i, 3)
     .crlf = vbCrLf
     End With
    Put #fN, , rFormat
    Next
  Close #fN
End Sub

2 hits

【39290】固定長ファイルの作成 質問 06/6/21(水) 16:07 質問
【39292】Re:固定長ファイルの作成 ハト 06/6/21(水) 16:30 回答
【39297】Re:固定長ファイルの作成 質問 06/6/21(水) 17:11 回答
【39298】Re:固定長ファイルの作成 ハト 06/6/21(水) 17:20 発言
【39300】Re:固定長ファイルの作成 質問 06/6/21(水) 17:52 お礼
【39293】Re:固定長ファイルの作成 ichinose 06/6/21(水) 16:49 発言
【39299】Re:固定長ファイルの作成 質問 06/6/21(水) 17:51 お礼

42505 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free