Français
Forum

Erledigt: Einlesen de Text dans Multiedit

 

DeHarrow
allô!

Kurze Frage: kopiere une Text avec @MoveListToHandle dans un Multiedit, habe mais toujours zum Schluss des Textes une Leerzeile avec drin stehn.
Manuelles et automatisches Effacer qui letzten la ligne (teils avec SendMessage) brachten meiner attitude pour rien, qui Text wird toujours chez chaque Neueinlesen um une Leerzeile plus angezeigt.
Hoffe son wisst quoi je mon.

Standardmässig ist oui chez einer Multiedit toujours une Leerzeile vorhanden - peux je cela irgendwie unterbinden? voudrais arrêt zum Schluss des Textes aucun Leerzeile avons.

Salut Jürgen.

Éditer: Nochmals zur Verständis: Lese den eingelesenen Text dans qui Multiedit la ligne pour la ligne aus et veux cette dans un banque de données écrivons. qui dernier la ligne wird de mir testweise gelöscht. si je cette editierten Text ensuite übernehme, ensuite scheint mir qui Leerzeile avec übernommen trop volonté. peux cela son? Lese je ensuite den Text wieder un et übernehme je cette ensuite wieder, ensuite habe je chaque fois wieder une zusätzliche Leerzeile am Text vorhanden.
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



>Standardmässig ist oui chez einer Multiedit toujours une Leerzeile vorhanden

non, mais Du könntest testweise den Text doch simple la fois trimmen - zur Not settext e&,bordure$(getText$(e&))
 
22.12.2009  
 




DeHarrow
siehe mon Éditer dessus. Trim etc. J'ai eu aussi déjà probiert.

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



peux Du la fois un MB faire?
 
22.12.2009  
 




DeHarrow

KompilierenMarqueSéparation
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>

Pour MoveListToHandle habe je meiner attitude pour toujours une Leerzeile am Text.
KompilierenMarqueSéparation
WhileLoop GetLineCount(MultiEdit1&)

    GetTextMultiEdit1$ = Trim$(GetLine$(MultiEdit1&,&Boucle-1))
    AddStrings GetTextMultiEdit1$

Endwhile


Diesen Text schreibe je ensuite de qui Listbox wieder dans qui banque de données zurück.

...
KompilierenMarqueSéparation
db("PutMemo","NOTIZ")
db("PutRec",dbAppendBlank&)

Éditer: Quellcode s'il te plaît aussi avec [ /code ] wieder abschließen. Jörg
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



Mach doch la fois derrière MoveListToHandle(MultiEdit1&) settext multiEdit1&,bordure$(getText$(multiEdit1&)).
 
22.12.2009  
 




DeHarrow
iF tu es spitze!!! Thx

Allen Profanern un schönes Noël!!!
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 




Juergen
Baier
...doch là étions vous wieder mon Probleme

avec Trim peux je zwar qui Leerzeilen am Anfang et Ende rausnehmen, mais quoi ist z.B. si im Text une Leerzeile vorkommt, qui drin rester soll - z.B. dans qui ersten la ligne, comment z.B.:

LEERZEILE
très geehrte Damen et Herren,
bla, bla, bla

si Je l' Text übernehme (Cursor ist beim letzten bla), comme Memo abspeichere, ensuite habe je beim Wiedereinlesen im Multiedit une zusätzliche la ligne, qui je mais pas avons voudrais...

avec Addstring klappts sans Leerzeile - avec MoveListToHandle pas.

Salut Jürgen
 
08.11.2010  
 



Juergen Baier (08.11.10)

avec Trim peux je zwar qui Leerzeilen am Anfang et Ende rausnehmen, mais quoi ist z.B. si im Text une Leerzeile vorkommt, qui drin rester soll - z.B. dans qui ersten la ligne, comment z.B.:

LEERZEILE
très geehrte Damen et Herren,


Grüße!

ensuite prüft on z.B. simple auparavant si vorne une Leerzeile klebt et fügt cet pour dem Trim$ wieder à ou bien Trimt simple grundsätzlich et fügt arrêt "immer" vorn wieder une Leerzeile à ou bien je habs Problem pas kappiert. ^ ^
 
08.11.2010  
 




Jörg
Sellmeyer
une kleine Si-Abfrage sollte là reichen...
KompilierenMarqueSéparation
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  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

6.002 Views

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

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie