Jump to content
  • 0

Verschillende teksten importeren


Maloud

Question

Regelmatig krijg ik een tekstfile (in outlook) binnen wat er als volgt uitziet:

 

Voornaam=Donald

Voorvoegsel=

Voorletters=D.

naam=Duck

straat=Duckstraat 57

postcode=0000 LD

plaats=Amsterdam

telefoon=020-6458898

mobiel=06-00000000

geboren=04-02-1959

emailadres=d.duck@orange.nl

radio=Email ontvangen

forumnumer=

forumnaam=

 

In een andere vraag werd dit al beantwoord als het te importeren als CSV bestand, maar kan ik dit ook met scriptstappen (bijv met middle) automatiseren??

 

Wie dot er een beginnetje c.q. voorbeeldje zodat ik verder kan, bij voorbaat dank

Link to comment

5 answers to this question

Recommended Posts

  • 0

Als ik er vanuit mag gaan dat van alle teksten voor het "='-teken een veld bestaat, plus een veld om de inhoud uit Outlook in te voeren [veldnaam Invoer], kun je een volgend script maken:

 

Veld instellen [Filenaam::Voornaam; Middle ( GetValue ( Adres_test::Invoer ; 1 ) ; Position ( GetValue ( Adres_test::Invoer ; 1 ) ; "=" ; 1 ; 1 )+1 ; Length ( GetValue ( Adres_test::Invoer ; 1 ) ) ) ]

Veld instellen [Filenaam::Voorvoegsel; Middle ( GetValue ( Adres_test::Invoer ; 2 ) ; Position ( GetValue ( Adres_test::Invoer ; 2 ) ; "=" ; 1 ; 1 )+1 ; Length ( GetValue ( Adres_test::Invoer ; 2 ) ) ) ]

Veld instellen [Filenaam::Voorletters; Middle ( GetValue ( Adres_test::Invoer ; 3 ) ; Position ( GetValue ( Adres_test::Invoer ; 3 ) ; "=" ; 1 ; 1 )+1 ; Length ( GetValue ( Adres_test::Invoer ; 3 ) ) ) ]

 

etcetera

Link to comment
  • 0

Een andere mogelijkheid, die minder scriptregels kost.

Zorg dat het veld "Invoer" als eerste of laatste op de lay-out staat.

 

Variabele instellen [$Valuenr; Waarde:1]

Ga naar veld Filenaam::Voornaam

Loop

Veld instellen [Middle ( GetValue ( Adres_test::Invoer ; $Valuenr ) ;

Position ( GetValue ( Adres_test::Invoer ; $Valuenr ) ; "=" ; 1 ; 1 )+1 ;

Length ( GetValue ( Adres_test::Invoer ; $Valuenr ) ) )]

Variabele instellen [$Valuenr; $Valuenr + 1]

Ga naar volgend veld

Exit loop If [Get( NaamActiefVeld ) = "Invoer"]

End Loop

Link to comment
  • 0
Als ik er vanuit mag gaan dat van alle teksten voor het "='-teken een veld bestaat, plus een veld om de inhoud uit Outlook in te voeren [veldnaam Invoer], kun je een volgend script maken:

 

Veld instellen [Filenaam::Voornaam; Middle ( GetValue ( Adres_test::Invoer ; 1 ) ; Position ( GetValue ( Adres_test::Invoer ; 1 ) ; "=" ; 1 ; 1 )+1 ; Length ( GetValue ( Adres_test::Invoer ; 1 ) ) ) ]

Veld instellen [Filenaam::Voorvoegsel; Middle ( GetValue ( Adres_test::Invoer ; 2 ) ; Position ( GetValue ( Adres_test::Invoer ; 2 ) ; "=" ; 1 ; 1 )+1 ; Length ( GetValue ( Adres_test::Invoer ; 2 ) ) ) ]

Veld instellen [Filenaam::Voorletters; Middle ( GetValue ( Adres_test::Invoer ; 3 ) ; Position ( GetValue ( Adres_test::Invoer ; 3 ) ; "=" ; 1 ; 1 )+1 ; Length ( GetValue ( Adres_test::Invoer ; 3 ) ) ) ]

 

etcetera

 

Ik heb dit geprobeerd, maar krijg het nog niet aan de gang, zou je a.u.b. een werkend bestandje voor me kunnen maken.

Bij voorbaat dank

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...