Variable felder

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,
Ich habe eine Datei, die aus variablen Code-Wert Feldern besteht.

EF1000200*EF01050*EF02050*EF03100*EF2000070*EF11035*EF14035&amp:wink:

(EF10 +5-stelligr Summe von EF01-EF09)- *(jeweils als Trennzeichen) –EF01- EF09 mit 3stelligen Werten, alle mit Trennzeichen * getrennt).

(EF20 +5-stellige Summe von EF11-EF19)- *( als Trennzeichen) dann CodeEF11 – EF19 mit 3stelligen Werten, alle mit Trennzeichen * getrennt).

Abschlusszeichen ist ein „&“

Beispiel:

01EF1000100*EF01050*EF05050*EF2000002*EF15001*EF19001&

02EF1000500*EF05500* EF2000010*EF15005*EF16005&

03EF1000100*EF06100* EF2000010*EF11005*EF13005&

Die Sätze bestehen nur aus den EF-Feldern (zwischen 01 und 09, bzw. 11-19), die auch belegt sind.

Ich soll per VBA eine neue Tabelle erstellen, die pro Satz die Felder EF01 – EF20 als Feldnamen, mit ihren belegten Werten darstellt.

01 EF01 EF02 EF05 usw.

00100 050 050

Wer kann mir helfen?

#2

Ich habe eine Datei, die aus variablen Code-Wert Feldern
besteht.

Hallo Felix,

welche Art Datei, eine Textdatei? dateiendung, Dateistruktur?

Von welchem Vba redest du, Access?

Gruß
Reinhard

#3

Hallo Reinhard,

es handelt sich um eine Access-Tabelle, mit einem einzigen Memo-Feld.

#4

Hallo,

verstanden habe ich, daß Du den Text un seine Bestandteile zerlegen, an den Trennzeichen auseinander nehmen möchtest. Richtig?

Dann willst Du den wieder zusammen setzen, den Teil habe ich nicht verstanden, aber das bekommst Du sicher auch so hin.

Mit VB6 sieht das Zerlegen bei mir aus wie im Code unten. Die Felder heißen bei Dir anders, aber das Wesentliche funktioniert auch in VBA.

Gruß Rainer

Option Explicit

Private Sub Command1\_Click()
 Dim Txt As String, Zl() As String, Fl() As String
 Dim i As Long, j As Long
 Txt = Text1.Text
 Zl = Split(Txt, vbCrLf)
 For i = LBound(Zl) To UBound(Zl)
 If Zl(i) "" Then
 Zl(i) = Mid(Zl(i), 3, Len(Zl(i)) - 3)
 Fl = Split(Zl(i), "\*")
 For j = LBound(Fl) To UBound(Fl)
 List1.AddItem Left(Fl(j), 4)
 List2.AddItem Mid(Fl(j), 5)
 Next
 End If
 Next
End Sub
#5

Vielen Dank.

Ich habe aber nochmal eine Frage:

Ich soll eine fertige Tabelle erstellen,die pro Datensatz
01
02
03 usw.

die EF-Felder 340, 341 usw( als Tapellenspalte)
mit Ihren Werten darstellt.
Könntest Du mir einen Tipp geben, wie ich dies ohne Listbox lösen kann?

#6

Access-VBA Datensätze schreiben
Hallo,

Ich soll eine fertige Tabelle erstellen,die pro Datensatz
01
02
03 usw.

die EF-Felder 340, 341 usw( als Tapellenspalte)
mit Ihren Werten darstellt.
Könntest Du mir einen Tipp geben, wie ich dies ohne Listbox
lösen kann?

Wie man das mit Access per Code macht, weiß ich nicht.

Aber die Felder stehen doch fest, die Namen und Formate auch …

Ohne VBA wäre es eine Angelegenheit von zwei Minuten diese Tabelle mit Access zu erstellen. Die Werte in die Tabelle einzutragen kann dann ja kein Problem mehr sein. Für VB hätte ich da auch Code, aber wie das mit Access-VBA geht, weiß ich nicht.

Gruß Rainer