Italia
Foro

Erledigt: Einlesen von Text in Multiedit

 

DeHarrow
Hallo!

Kurze Frage: kopiere einen Text mit @MoveListToHandle in un 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.

Saluto Jürgen.

Edit: Nochmals zur Verständis: Lese den eingelesenen Text in der Multiedit Zeile per Zeile aus und will diesen in un 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.

Saluto 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)

/a>

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 Io l' 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.

Saluto 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

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



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

6.028 Views

Untitledvor 0 min.
RudiB.19.08.2021
Peter Max Müller15.10.2017
Wilfried02.06.2016
Erfurt12.11.2015
Di più...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


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