Zeilen einer TXT datei in spalten bringen
#11
Bei den Uhrzeiten? Ich hatte Probleme mit dem Datum. Liegt daran dass die Wochentage Tues bzw., Thur heißen. Richtig wäre Tue bzw. Thu (immer drei Zeichen).

Problematisch ist auch dass es am 21.03.2018 12:02:00 zwei Datensätze gibt.

Morgen nach Feierabend melde ich mich wieder.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Top
#12
(10.05.2018, 23:38)shift-del schrieb: Bei den Uhrzeiten? Ich hatte Probleme mit dem Datum. Liegt daran dass die Wochentage Tues bzw., Thur heißen. Richtig wäre Tue bzw. Thu (immer drei Zeichen).

Problematisch ist auch dass es am 21.03.2018 12:02:00 zwei Datensätze gibt.
...

Hallo Detlef, ich hatte gedacht, das wäre wegen der Uhrzeiten, aber dann habe ich auch gesehen, dass es an manchen Tagen zu mehreren Datensätzen kam... ... Der Ausschnitt hatte ja auch unsauber begonnen und endet auch mit einer leeren Zeile... Die Wochentage habe ich rausgeschmissen. Die tun doch gar nichts zur Sache... ... ich denke, bei saubere(re)n Datensätzen ging das ganz gut...
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Top
#13
Hallo, also für das Beispiel im Ausgangpost, geht das prima (allerdings auch mit Feinjustierung) und es müsste noch formatiert werden in PQ, aber das ist ja dann Schnulli-Bulli..:

Arbeitsblatt mit dem Namen 'Tabelle1'
A
1Spalte1
2Time:07:50, Tues,4/ 10/2018
3KörperGewicht:76.5kg   Overweight
4Wasseranteil:56.7%   Standard
5KörperfettAnteil:17.4%   Chubby
6Knochengewicht:3.1kg   Inadequate
7Visceral fat:8.0   Standard
8BMR:1888.0 kcal   Optimal
9MuskelGewicht:60.1kg   Optimal
10BMI:23.9   Standard
11
12
13Time:21:08, Sat,4/ 7/2018
14KörperGewicht:77.8kg   Overweight
15Wasseranteil:56.6%   Standard
16KörperfettAnteil:17.5%   Chubby
17Knochengewicht:3.2kg   Standard
18Visceral fat:8.0   Standard
19BMR:1911.0 kcal   Optimal
20MuskelGewicht:61.0kg   Optimal
21BMI:24.3   Chubby
22
23
24Time:09:08, Sat,3/ 31/2018
25KörperGewicht:78.2kg   Overweight
26Wasseranteil:56.4%   Standard
27KörperfettAnteil:17.9%   Chubby
28Knochengewicht:3.2kg   Standard
29Visceral fat:8.0   Standard
30BMR:1918.0 kcal   Optimal
31MuskelGewicht:61.1kg   Optimal
32BMI:24.4   Chubby
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Arbeitsblatt mit dem Namen 'Tabelle2'
ABCDEFGHIJ
1DatumTimeKörperGewichtWasseranteilKörperfettAnteilKnochengewichtVisceral fatBMRMuskelGewichtBMI
231.03.201809:0878.2kg56.4%17.9%3.2kg8.01918.061.1kg24.4
307.04.201821:0877.8kg56.6%17.5%3.2kg8.01911.061.0kg24.3
410.04.201807:5076.5kg56.7%17.4%3.1kg8.01888.060.1kg23.9
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
[-] Folgende(r) 1 Nutzer sagt Danke an Jockel für diesen Beitrag:
  • BeginnerBUS
Top
#14
Jockel, super! Genau so habe ich es mir vogestellt. Ich kann aber nicht nachvollziehen, wie es gemacht wurde.
 
Gibt es eine Möglichkeit, dass ich nachvollziehen kann was du gemacht hast? Das wäre super!
Top
#15
In VBA:


Code:
Sub M_snb()
   sn = Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\myrecords.txt").readall, vbCrLf)
   ReDim sp(UBound(sn), 8)
   
   For j = 2 To UBound(sn)
      If (j - 2) Mod 9 = 0 Then
          sp((j - 2) \ 9, (j - 2) Mod 9) = Format(Right(sn(j), 10) & " " & Mid(sn(j), 6, 5), "dd-mm-yyyy hh:mm")
      Else
         sp((j - 2) \ 9, (j - 2) Mod 9) = Split(Split(sn(j), ":")(1), " ")(0)
      End If
   Next
   
   Sheet1.Cells(2, 1).Resize(UBound(sp), 9) = sp
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top
#16
Vielen Dank, aber  ich kann leider weder PHP noch VBA, ein bisschen JAVA aber das hilft mir hier wohl gar nicht. Nicht, dass ich unwillig bin zu lernen, aber im Moment hilft es mir gar nicht

Ich hab danach gesucht, wie ich die Zeielen in die Spaltenform bringen kann. Finde aber nichts (für mich) brauchbares.

Wenn ich für diese Aufgabe unbedingt VBA und/oder PHP lernen sollte, dann mach ich mich jetzt auf die Suche nach einem Grundlagentutorial. Weil in Zukunft mehr Daten kommen und ich will bestimmt nicht alles von Hand eintragen.

Wie gesagt, Tabelle2 von Jockel ist exakt mein Ziel.
Top
#17
Hallo, ich habe keine Ahnung von VBA, deswegen habe ich die Variante von snb auch nicht ausprobiert. - sorry - . Bei meinem Vorschlag habe ich die Daten aus dem Ausgangspost hergenommen und musste diese aber noch feinjustieren... Ohne ordentliche Ausgangsdaten keine ordentliche Auswertung. Ich kann die Datei gern zur Verfügung stellen. Die Datei, die du gepostet hattest, war keine ordentliche Grundlage... !!! Die konnte ich auch nicht runter laden... Vielleicht speicherst du sie mal als csv ab und postest sie neu...
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Top
#18
Hallo,

Zitat:Wenn ich für diese Aufgabe unbedingt VBA und/oder PHP lernen sollte, dann mach ich mich jetzt
auf die Suche nach einem Grundlagentutorial.

der Code von snb gehört über den VBA-Editor in ein Allgemeines Modul.

Um snb's Codes zu verstehen genügt aber kein Grundlagentutorial, da steigt auch schon mal gerne
so mancher "Nichtneuling" aus. snb ist eine Art Ausnahmekünstler.

Wenn Du Dich entschließt, in VBA einsteigen zu wollen, dann bin ich gerne bereit, Dir Lehrmaterial
zusammenzustellen und zukommen zu lassen.
Eine durchaus angebrachte Warnung aber schon mal vorweg. VBA erweckt ungeahnte Möglichkeiten
und Begierden und kann süchtig machen. Das aber ist im positivem Sinn gemeint.
Top
#19
Schau mal die angehängte Datei.

Speichere deine Datei als "C:\myrecords.txt"

Zeig das Makro: Alt-F11

Lass das Makro laufen: F5


Angehängte Dateien
.xlsb   __Lean oder mean.xlsb (Größe: 14,94 KB / Downloads: 6)
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 2 Nutzer sagen Danke an snb für diesen Beitrag:
  • Käpt'n Blaubär, Jockel
Top
#20
Hallo, danke, jetzt habe ich gesehen, was "es macht"... Wink
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste