[de-users] Basic-Makro: Im Writer suchen und ersetzen nur bis zum Dateiende - BUG ?

Hallo Guido,

so wie's ausschaut, hängt »VC.String« an vorhandene CRs = Chr(13) 
automatisch ein LF = Chr(10) an.

Das habe ich mit diesem BasicMakro (offensichtlich) herausgefunden:

Sub VCString

'--------------- WRITER-Datei via LibreOffice
'AAAAABBBBBCCCCC¶
'DDDDDEEEEEFFFFF¶
'GGGGGHHHHHIIIII¶
'¶
'AAAAABBBBBCCCCC¶
'DDDDDEEEEEFFFFF¶
'GGGGGHHHHHIIIII¶
'¶
'¶
'AAAAABBBBBCCCCC¶
'DDDDDEEEEEFFFFF¶
'GGGGGHHHHHIIIII¶
'¶
'AAAAABBBBBCCCCC¶
'DDDDDEEEEEFFFFF¶
'GGGGGHHHHHIIIII¶
'--------------- WRITER-Datei via LibreOffice
'
'------------------- E:\TMP\VCString.txt via Notepad++
'EEFFFFFcrlf
'GGGGGHHHHHIIIIIcrlf
'crlf
'crlf
'AAAAABBBBBCCCCCcrlf
'DDDDDEEEEEFFFFFcrlf
'GGGGGHHHHHIIIIIcrlf
'crlf
'AAAAABBBBBCCCCCcrlf
'DDDDDEEEEEFFFFFcrlf
'GGGGGHHHHHIIIIIcrlf
'------------------- E:\TMP\VCString.txt via Notepad++

Dim VC as Object ' View Cursor
VC = ThisComponent.GetCurrentController.ViewCursor
VC.gotoEnd(True)

Dim PathFile as String
Dim Number as Integer
PathFile = "E:\TMP\VCString.txt" ' Anpassen !
Number = Freefile
Open PathFile For Output As #Number
Print #Number,VC.String
Close #Number

End Sub

Hier das eigentliche BasicMakro für Deine Zwecke, bei dem erst mal 
»Chr(13) & Chr(10)« durch »Chr(13)« ersetzt wird vor der eigentlichen 
vom Benutzer optionierten Suche/Ersetzung:

Sub Guido
'--------------- WRITER-Datei
'AAAAABBBBBCCCCC
'DDDDDEEEEEFFFFF
'GGGGGHHHHHIIIII
'
'AAAAABBBBBCCCCC
'DDDDDEEEEEFFFFF
'GGGGGHHHHHIIIII
'
'
'AAAAABBBBBCCCCC
'DDDDDEEEEEFFFFF
'GGGGGHHHHHIIIII
'
'AAAAABBBBBCCCCC
'DDDDDEEEEEFFFFF
'GGGGGHHHHHIIIII
'--------------- WRITER-Datei
Dim VC as Object ' View Cursor
Dim SS as String ' Search String
Dim RS as String ' Replace String

SS = "E" ' Search String
RS = "●" ' Replace String
VC = ThisComponent.GetCurrentController.ViewCursor
VC.gotoEnd(True)
VC.String = Replace(Replace(VC.String,Chr(13) & Chr(10),Chr(13)),SS,RS)
End sub

Für Hinweise auf Denkfehler oder falsche Annahmen meinerseits wäre ich 
dankbar.

Falls meine Recherche stimmt, wäre es dann als BUG anzusehen, dass in 
»VC.String« an CRs jeweils ein LF anhängt wird ?

Grüße
Hans-Werner ;-))
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy