改行させないには？

解決

TOSHI 2003-04-15 20:00:37 No: 77713

データベースからデータを読み出す時に途中で改行コードがあるのか
かってに改行されてしまうので、どうにかして
結合させたいのですが、誰か教えてください。

名前なし 2003-04-15 20:28:08 No: 77714

読み込んだデータに
改行文字・行末文字（ vbCr, vbLf, vbCrLf ）が
含まれているかどうかをチェックして、
含まれていたら除去するようにすれば良いのでは？

TOSHI 2003-04-15 20:37:27 No: 77715

いまいちやり方が解らないので詳しく教えてください
vb4.0を使っているので
Private Sub Command1_Click()
Me.Text1.Text = Replace(Me.Text1.Text, vbCrLf, "")
End Sub
は使えません。

nanashi 2003-04-15 21:02:46 No: 77716

VB4.0は使ったことないんですけど、InStr関数を使ってみては？
もしInStr関数も無いなら一文字ずつ調べるしかないと思います。

猫八 2003-04-15 23:10:46 No: 77717

>データベースからデータを読み出す時に途中で改行コードがあるのか

改行コードがあるのかどうかを調べてみてください。
取りあえず vbCr,vbLf,vbCrLf の３つのどれかがあるのかどうか。
もし改行コードが無いところで改行しているなら表示方法が問題なのかも
しれませんね。

TOSHI 2003-04-16 01:05:38 No: 77718

Public Function ReplaceText(ByVal srcText As String) As String
      Dim SearchPos As Long
      Dim chgText As String
      Dim tgtText As String
      SearchPos = 1
      chgText = ""
      tgtText = vbCrLf
      Dim FoundPos As Long

      Do
          '被交換文字列検索
          FoundPos = InStr(SearchPos, srcText, vbCrLf)

'検索文字列が見つからなかったらループ終了
If FoundPos = 0 Then Exit Do

'次回検索位置算出
SearchPos = FoundPos + Len(chgText)

          '文字列置換
          srcText = Left$(srcText, FoundPos - 1) & chgText & Mid$(srcText, FoundPos + Len(tgtText))
          Debug.Print srcText
      Loop

      '編集した文字列を返す
      ReplaceText2 = srcText
  End Function

出来ました
ペコリ