Solved Export Query to txt where each row of data comes in groups? (1 Viewer)

[FoolzRailer]

Hello

I have a pretty basic data setup, where the end query looks like the data in the table:

$NODE

XY

Z_F

Depth

OB

POST

HTYPE

UTYPE

LTYPE

ENTREPRISE

STATUS

DIMENSION

STATION

PERPEND

CATCHMENT

Q

A_KOEF

ANM

Owner

TEXTXY

DK_TXT

'01'

6200000;454545

40.10

1.20

0.70

'1.1.2'

'KO'

'Well'

'KO'

'EXXX'

P

1.000​

0.00

0.00

0.0000

140.00

100.0

''

'Owner 2'

6200000;454545

6200000;454545

02'

6200000;454545

40.10

1.20

0.70

'1.2.4'

'KO'

'Kost'

'KO'

'EXXX'

P

1.000​

0.00

0.00

0.0000

140.00

100.0

''

'Owner1'

6200000;454545

6200000;454545

However I have too export the above data to a specific .txt format where each row basically is transposed with the column header before the data and a space between before the next item is done. The txt file should look something like this:


$NODE '01'
XY 6200000;454545
Z_F 40.10
Depth 1.20
OB 0.70
POST '1.1.2'
HTYPE 'KO'
UTYPE 'Well'
LTYPE 'KO'
ENTREPRISE 'EXXX'
STATUS P
DIMENSION 1.000
STATION 0.00
PERPEND 0.00
CATCHMENT 0.0000
Q 140.00
A_KOEF 100.0
ANM ''
Owner 'Owner 2'
TEXTXY 6200000;454545
DK_TXT 6200000;454545

$NODE 02'
XY 6200000;454545
Z_F 40.10
Depth 1.20
OB 0.70
POST '1.2.4'
HTYPE 'KO'
UTYPE 'Kost'
LTYPE 'KO'
ENTREPRISE 'EXXX'
STATUS P
DIMENSION 1.000
STATION 0.00
PERPEND 0.00
CATCHMENT 0.0000
Q 140.00
A_KOEF 100.0
ANM ''
Owner 'Owner1'
TEXTXY 6200000;454545
DK_TXT 6200000;454545


I'm figuring I will have too use some VBA script do this, but I haven't much experience with it, and I'm therefore looking for some input or sample code suggestions on how to do this. Any help would be much appreciated! There might be 1000 rows that needs to be exported to the text file.

 

[theDBguy]

I also think you'll need VBA for that. Looks like you may need a loop and an inner loop. The first loop is to go through the records, and the inner loop is for going through each column.

 

[arnelgp]

as suggested on post#2, you can use VBA.
run fnTransposeToTxt (in Module 1).

 

[FoolzRailer]

as suggested on post#2, you can use VBA.
run fnTransposeToTxt (in Module 1).

That is just lovely! Thank you very much for the help!