作成者	カテゴリ	返答の対象		公開
Sasaki 09/10/2001 11:30 AM		改行を削除する方法について

間違っていたらごめんなさい。

Sub Initialize
Dim session As New NotesSession
Dim ws As New notesuiworkspace
Dim db As NotesDatabase
'選択した実績文書の定義
Dim Collection As NotesDocumentCollection
Dim doc As NotesDocument
'WKフィールド定義
Dim nmo As String
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = Collection.GetFirstDocument
Do While Not ( doc Is Nothing )
nmo = doc.textfld(0)
M = ""
y = Trim(nmo)
L = Len(y)
For i = 1 To L
d = Mid(y,i,1)
If d = Chr(10) Or d = Chr(13) Then
d =""
End If
If d <> "" Then
M = M & d
End If
Next
doc.textfld = m
Call doc.Save( True, True )
Set doc = Collection.GetNextDocument(doc)
Loop
End Sub