Deutsch
Forum

Erledigt: Einlesen von Text in Multiedit

 

DeHarrow
Hallo!

Kurze Frage: kopiere einen Text mit @MoveListToHandle in eine Multiedit, habe aber immer zum Schluss des Textes eine Leerzeile mit drin stehn.
Manuelles und automatisches Löschen der letzten Zeile (teils mit Sendmessage) brachten meiner Meinung nach nichts, der Text wird immer bei jedem Neueinlesen um eine Leerzeile mehr angezeigt.
Hoffe ihr wisst was ich meine.

Standardmässig ist ja bei einer Multiedit immer eine Leerzeile vorhanden - kann ich das irgendwie unterbinden? Möchte halt zum Schluss des Textes keine Leerzeile haben.

Gruß Jürgen.

Edit: Nochmals zur Verständis: Lese den eingelesenen Text in der Multiedit Zeile für Zeile aus und will diesen in eine Datenbank schreiben. Die letzte Zeile wird von mir testweise gelöscht. Wenn ich diesen editierten Text dann übernehme, dann scheint mir die Leerzeile mit übernommen zu werden. Kann das sein? Lese ich dann den Text wieder ein und übernehme ich diesen dann wieder, dann habe ich jedesmal wieder eine zusätzliche Leerzeile am Text vorhanden.
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



>Standardmässig ist ja bei einer Multiedit immer eine Leerzeile vorhanden

Nein, aber Du könntest testweise den Text doch einfach mal trimmen - zur Not settext e&,trim$(getText$(e&))
 
22.12.2009  
 




DeHarrow
siehe mein Edit oben. Trim etc. hatte ich auch schon probiert.

Gruß Jürgen
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



Kannst Du mal ein MB machen?
 
22.12.2009  
 




DeHarrow

KompilierenMarkierenSeparieren
OpenRW_DBF  Prüfen ob Zugriff auf Datenbankdatei möglich
db("Open",#1,$ProgDir + "LSM_Datensätze.dbf")
db("Use",#1)
dbSeek& = db("Seek","FELD8",SubStrGridBox8$,1)
db("Go","*",dbSeek&)
db("GetMemo","NOTIZ")
MoveListToHandle(MultiEdit1&)
db("Close",#1)

EndIf


Nach MoveListToHandle habe ich meiner Meinung nach immer eine Leerzeile am Text.
KompilierenMarkierenSeparieren
WhileLoop GetLineCount(MultiEdit1&)

    GetTextMultiEdit1$ = Trim$(GetLine$(MultiEdit1&,&Loop-1))
    AddString GetTextMultiEdit1$

EndWhile


Diesen Text schreibe ich dann von der Listbox wieder in die Datenbank zurück.

...
KompilierenMarkierenSeparieren
db("PutMemo","NOTIZ")
db("PutRec",dbAppendBlank&)

Edit: Quellcode bitte auch mit [ /code ] wieder abschließen. Jörg
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



Mach doch mal hinter MoveListToHandle(MultiEdit1&) settext multiEdit1&,trim$(getText$(multiEdit1&)).
 
22.12.2009  
 




DeHarrow
iF du bist spitze!!! Thx

Allen Profanern ein schönes Weihnachtsfest!!!
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 




Juergen
Baier
...doch da waren sie wieder meine Probleme

Mit Trim kann ich zwar die Leerzeilen am Anfang und Ende rausnehmen, aber was ist z.B. wenn im Text eine Leerzeile vorkommt, die drin bleiben soll - z.B. in der ersten Zeile, wie z.B.:

LEERZEILE
Sehr geehrte Damen und Herren,
bla, bla, bla

Wenn ich den Text übernehme (Cursor ist beim letzten bla), als Memo abspeichere, dann habe ich beim Wiedereinlesen im Multiedit eine zusätzliche Zeile, die ich aber nicht haben möchte...

Mit Addstring klappts ohne Leerzeile - mit MoveListToHandle nicht.

Gruß Jürgen
 
08.11.2010  
 



Juergen Baier (08.11.10)

Mit Trim kann ich zwar die Leerzeilen am Anfang und Ende rausnehmen, aber was ist z.B. wenn im Text eine Leerzeile vorkommt, die drin bleiben soll - z.B. in der ersten Zeile, wie z.B.:

LEERZEILE
Sehr geehrte Damen und Herren,


Grüße!

Dann prüft man z.B. einfach vorher ob vorne eine Leerzeile klebt und fügt diese nach dem Trim$ wieder an oder Trimt einfach grundsätzlich und fügt halt "immer" vorn wieder eine Leerzeile an oder ich habs Problem nicht kappiert. ^^
 
08.11.2010  
 




Jörg
Sellmeyer
Eine kleine If-Abfrage sollte da reichen...
KompilierenMarkierenSeparieren
WhileNot EoF(#1)

    Input #1,Zeile$

    IfNot Zeile$ = ""

        Zeile$ = Trim$(Zeile$)

    EndIf

    'weitere Bearbeitung

Wend

 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08.11.2010  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

6.036 Betrachtungen

Unbenanntvor 0 min.
RudiB.19.08.2021
Peter Max Müller15.10.2017
Wilfried02.06.2016
Erfurt12.11.2015
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie