Baanboard.com

Go Back   Baanboard.com > Forum > BB Language Forums > Deutsches Forum

User login

Frontpage Sponsor

Main

Poll
For ERP LN feature pack upgrade, what method of install are you using?
Installation Wizard into existing VRC
35%
Installation Wizard into new VRC
42%
Manual into existing VRC
3%
Manual into new VRC
19%
Total votes: 31

Baanboard at LinkedIn


Reference Content

Closed Thread
 
Thread Tools Display Modes
  #1  
Old 29th March 2017, 13:37
MS-Tech MS-Tech is offline
Member
 
Join Date: Dec 2015
Posts: 66
MS-Tech is on a distinguished road
Baan: 6 - DB: SQL-Server - OS: Windows 7
TEXT.TO.BUF mit Zeilenumbruch
Baan: Other/Unknown

Hallo Zusammen,

ich verwende die Funktion TEXT.TO.BUF, um einen Text in den Buffer lesen zu können. Dies wiederrum verwende ich in HiDOX, um Texte nebeneinander zu positionieren. Jetzt habe ich nur das Problem, dass ich Zeilenumbrüche einfügen muss, wenn eine Zeile länger als 40 Zeichen ist.

Wie kann ich das bewerkstelligen? Kann ich irgendwie den Buffer nachträglich durchlaufen und die Zeilen überprüfen, umbrechen etc?

Grüße
MS-Tech
  #2  
Old 31st March 2017, 09:34
andreas.toepper andreas.toepper is offline
Senior Member
 
Join Date: Jun 2004
Posts: 127
andreas.toepper is on a distinguished road
Baan: Baan4, LN6.1 - DB: MSSQL - OS: Linux&Windows
Ich hab das zwar noch nie gemacht, aber im Prinzip speichert Text.to.buf(..) den Text aus der Datenbank in einem String-Array. Nunja, ein String-Array ist ein String-Array und nur in Sonderfallen ein String-Array. ;-)
Also müsste man den doch ganz normal nutzen, einzelne Elemente bearbeiten, verschieben und neu sortieren können. Ich hab zumindest schon Texte erzeugt, indem ich die Textzeilen in eine Textdatei geschrieben habe. Dann wurde per text.write() diese Datei als Text in LN gespeichert.
Nun könnte man ja den Array-Inhalt nehmen, den entsprechend formatiert in die Textdatei schreiben und dass dann speichern.

Hier ein Beispiel, das ich damals verwendet habe:
Code:
function void set.txta()
|Hier wird der Text aufgebaut:
|Create the text:
{
	long	tf	|Text-File
	domain	tcmcs.str132m	text.file
	domain	tcmcs.str132m	text.line
	long	err, i
	
	|Text in temp. Datei speichern:
	|Save text in temp. file:
	text.file = creat.tmp.file$( bse.tmp.dir$() )
	
	|Open file for writing:
	tf = seq.open(text.file, "w")
	
	if not(isspace(text.a)) then
		err = seq.puts("Bemerkung:", tf)
		err = seq.puts(shiftl$(text.a), tf)
	endif
	if not(isspace(text.b)) then
		if not(isspace(text.a)) then
			err = seq.puts(" ", tf)
		endif
		err = seq.puts("AT-Bemerkung:", tf)
		err = seq.puts(shiftl$(text.b), tf)
	endif
	
	if not(isspace(text.c)) then
		err = seq.puts(" ", tf)
		err = seq.puts("Anlagentyp::", tf)
		err = seq.puts(shiftl$(text.c), tf)
	endif
	
	if not(isspace(text.d)) then
		err = seq.puts(" ", tf)
		err = seq.puts(shiftl$(text.d), tf)
	endif
	
	if not(isspace(text.e)) then
		err = seq.puts(" ", tf)
		err = seq.puts(shiftl$(text.e), tf)
	endif
	
	|File schließen:
	|Close file:
	err = seq.close(tf)
	
	|File in Text speichern:
	|Store temp file in LN text:
	if do.update = tcyesno.yes then
		err = text.write("tscfg200.txta", language$, "Wartungsstückliste", tscfg210.item, tscfg210.sern, "", "text", "text", text.file)
	endif

	|Temp. datei auf server löschen:
	|Remove temp. file from server directory:
	file.rm(text.file)
}

Last edited by andreas.toepper : 4th April 2017 at 07:16.
Sponsored Links
  #3  
Old 21st April 2017, 16:07
MS-Tech MS-Tech is offline
Member
 
Join Date: Dec 2015
Posts: 66
MS-Tech is on a distinguished road
Baan: 6 - DB: SQL-Server - OS: Windows 7
Hi,

ich habs natürlich umgestellt, aber ich habe die richtigen Denkanstöße bekommen.

Funktionert also.

Grüße
MS-Tech
Closed Thread


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Automatisierte Wareneingänge mit AFS athomas Deutsches Forum 7 30th March 2004 13:24
Arbeit-In-Umlauf und Inventur mit Projekt Kai's Forum Users Deutsches Forum 4 28th February 2002 00:00
IVc4, SQL-Server 7: Probleme mit Umlauten in Indicees Kai's Forum Users Deutsches Forum 2 9th March 2001 00:00
Welche Erfahrungen haben CH-Anwender mit Abstimmung Einkauf in Transit? Kai's Forum Users Deutsches Forum 1 20th September 2000 00:00
Performance-Probleme mit NT und Informix Kai's Forum Users Deutsches Forum 2 22nd April 1999 00:00


All times are GMT +2. The time now is 04:23.


©2001-2017 - Baanboard.com - Baanforums.com