PureBoard
http://forums.purebasic.com/german/

Zusammenfügen von 2 String mit TAB oder so?
http://forums.purebasic.com/german/viewtopic.php?f=16&t=31948
Seite 1 von 1

Autor:  HemSA [ 07.04.2020 22:05 ]
Betreff des Beitrags:  Zusammenfügen von 2 String mit TAB oder so?

Hallole,
Wenn ich String1 oder String2 kopiere kann ich es in Excel einfügen und jeder Wert wird in einer separaten Spalte angezeigt.

Wenn ich allerdings dieses mache:
String = String1 + " " + String2
Dann wird der letzte Teil von String1 und der erste Teil von String2 in Excel in der selben Spalte gezeigt.

Wie kann ich es machen das auch nach dem Zusammenfügen von String1 und String2 = String der letzte Teil von String1 und der erste Teil von String2 in Excel getrennt dargestellt wird?

Danke

Autor:  helpy [ 07.04.2020 22:29 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

Code:
String = String1 + #TAB$ + String2

Autor:  HemSA [ 07.04.2020 22:42 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

helpy hat geschrieben:
Code:
String = String1 + #TAB$ + String2


Danke helpy hat funktioniert. Könnte man vielleicht auch noch dokumentieren, habe jedenfalls nichts gefunden.

Autor:  mk-soft [ 08.04.2020 00:15 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

Schon mal was von Excel in eine Text-Dabei kopiert?

Sorry,
Hat nichts mit der Doku von PB zu tun...

Autor:  Nino [ 08.04.2020 00:16 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

HemSA hat geschrieben:
Danke helpy hat funktioniert. Könnte man vielleicht auch noch dokumentieren, habe jedenfalls nichts gefunden.

Da musst du dich an die Autoren der Excel-Dokumentation wenden.

Autor:  helpy [ 08.04.2020 22:35 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

Um tabellarische Daten aus PureBasic nach Excel zu bekommen, besonders wenn es sich um größere Datenmengen handelt, wäre es sinnvoller gleich eine CSV-Datei zu erzeugen und diese dann in Excel zu importieren oder direkt zu öffnen. Den Weg über die Zwischenablage würde ich da nicht gehen!

==> CSV-Format

Autor:  mk-soft [ 09.04.2020 01:04 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

ODBC geht auch...

Autor:  HeX0R [ 09.04.2020 12:04 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

ODBC hat aber eine fiese max. Textlängenbegrenzung!
Das hat mich mal Stunden meines Lebens gekostet, bevor ich endlich wusste, wieso manche Texte nur zur Hälfte übertragen wurden.

In "normalen" Excel-Sheets kein Problem, aber ich arbeite öfter mit so durchgeknallten R&D Excel-Sheets, und die pappen da schon mal gerne eine riesige Anzahl Zeichen in so ne Zelle.

Bin mir nicht mehr sicher, aber ich glaube 260 Zeichen war das Limit.

Ich bin dann über Zip-Handling-Umweg damals gegangen (also xlsx direkt verarbeiten).

Autor:  kernadec [ 09.04.2020 13:40 ]
Betreff des Beitrags:  Re: Zusammenfügen von 2 String mit TAB oder so?

Hallo
Hier ist eine Lösung
Beim Importieren mit Excel [Daten] [aus Text] [UTF8] bleibt die Formatierung der Spalten erhalten
Libre Office guter Import csv
herzlich

Code:
; ###################### Code-Formatierungsfelder für CSV-Dateien - by Kernadec ######
; ###################### Im Excel-Menü importieren [Daten] [Textdatei] [UTF] etc .. ##########


#col1 = 12
#col2 = 5
#col3 = 8
#col4 = 2
#col5 = 10

Dim a$(10)
Dim c$(10)

a$(1) = "Birne"          : c$(1) = "3,00"
a$(2) = "Apfel"          : c$(2) = "2,60"
a$(3) = "Mandarine"      : c$(3) = "2,90"
a$(4) = "Kiwi"           : c$(4) = "5,00"
a$(5) = "Traube"         : c$(5) = "6,00"
a$(6) = "Pommelos"       : c$(6) = "3,00"


b$ = "Preis"
d$ = "E"
e$ = "das Kilo"

Path$ = GetCurrentDirectory()

File$ = "Datei csv mit vorformatierten Spalten.csv"

ClearClipboard()

If CreateFile(0, Path$ + File$,#PB_Unicode)
 
  For i = 1 To 6
   
    text$ = a$(i) + Space(#col1 - Len(a$(i))) + "," + b$ + Space(#col2 - Len(b$)) + "," + Space(#col3 - Len(c$(i))) + c$(i) + "," + d$ + Space(#col4 - Len(d$))  + "," + e$ + Space(#col5 - Len(e$))
    WriteStringN(0,text$, #PB_Unicode)
   
    SetClipboardText(GetClipboardText() + text$ + Chr(13)) ; Kopieren Sie Felder in die Zwischenablage
   
  Next i
  CloseFile(0)
Else
  MessageRequester("Information "," Unbekannte Datei? ")
EndIf
End



Zitat:
Änderung der Windows-Registrierung
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Options]
Klicken Sie mit der rechten Maustaste auf die rechte Seite und gehen Sie zu Neu> DWORD
Benennen Sie das Element DefaultCPG und speichern Sie es
Klicken Sie mit der rechten Maustaste auf DefaultCPG und wählen Sie Ändern
Setzen Sie die Basis auf Dezimal
Geben Sie den Code ein, der im Excel-Assistenten angezeigt wird (für UTF-8 ist es 65001).
OK klicken.

Modus jetzt: ANSI Windows standardmäßig
Kompatibler Text Durch Excel CSV begrenzte Spalten


Seite 1 von 1 Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/