How to do this? More words in one field - split the words

Question

Hello Hello,
I have a simple question about a simple database arrangement.
But the family name and first name are in the same field(column).
I would like to have a database with the first name - family name(s) in different fields.
So when for example the database has Willem De Wortel in one field
I would like to get a database with 3 more fields First name - Family 1 - Family 2
So the first word is the first name : Willem
and the second field is second name : De and the third field is third name : Wortel. For Willem Van De Wortel : I get 4 columns
So the script should see at 1 column in the database.
And make more columns for every word in that column.
So I think most of times I get a database with 4 extra columns
First name - Second name - third name - fourth name
I prefer to make extra columns starting next to the selected column
so I get a new database tab delimited mac os roman with (most of the times) 4 extra columns where the name is separated in more columns. And the new columns are next to the original column.
I hope some one understand me.

Answer 1

Hello Colin,
Here it goes. Try this one.
May this work well.
Hiroto
P.S. Sorry I misspelled your name in previous posts...
--SCRIPT 2
E.g.
infile.txt (; denotes tab)
name;field2;field3;field4
d11;d12;d13;d14
d21;d22;d23;d24
d31;d32;d33;d34
d41;d42;d43;d44
* Here, the 1st field is for name
outfile.txt (; denotes tab)
name;name 1;name 2;...;name 9;name 10;field2;field3;field4
d11;d11[1];d11[2];...;d11[9];d11[10];d12;d13;d14
d21;d21[1];d21[2];...;d21[9];d21[10];d22;d23;d24
d31;d31[1];d31[2];...;d31[9];d31[10];d32;d33;d34
d41;d41[1];d41[2];...;d41[9];d41[10];d42;d43;d44
* X denotes X's i'th substring delimited by space
(If X is in double quotes, each X is also enclosed in double quotes)
e.g.,
Given X = "Willem Van De Wortel",
X[1] = "Wililem"
X[2] = "Van"
X[3] = "De"
X[4] = "Wortel"
X[5]..X[10] = (empty)
on run
open (choose file with prompt "Choose input file") as list
--open (choose file with prompt "Choose input file(s)" with multiple selections allowed) as list -- AS1.9.2 or later
end run
on open aa
repeat with a in aa
set infile to a as string
set {p, m, x} to {|parent|, |name stem|, |name extension|} of getPathComponents(infile)
set outfile to p & m & "-converted" & x
main(infile, outfile)
end repeat
end open
on main(infile, outfile)
string infile : HFS path of input file
string outfile : HFS path of output file
script o
property targetfield : 1 -- # target field index
property subfields : {¬
"name 1", "name 2", "name 3", "name 4", "name 5", ¬
"name 6", "name 7", "name 8", "name 9", "name 10"} -- # additional sub field's names
property sublen : count subfields
property text_class : string -- # input & output text class [1]
--property text_class : «class utf8» -- UTF-8
[1] Input and output text class (: text encoding)
string : System's primary encoding; e.g. Mac-Roman
«class utf8» : UTF-8
Unicode text : UTF-16BE
property ORS : return -- # output record separator
--property ORS : linefeed
property pp : {}
property qq : {}
property rr : {}
property mm : {}
-- (0) read input file
set t to read file infile as text_class
set pp to t's paragraphs
-- (1) build new header row
set h1 to my pp's item 1 -- original header row (from line 1 of infile)
set hh1 to text2list(h1, tab)
set hh1's item targetfield to {hh1's item targetfield} & subfields -- add new sub fields
set h to list2text(hh1, tab) -- new header row
set qq to {h}
-- (2) process each data row (line 2 .. line -1)
repeat with i from 2 to count my pp --pp's item i is data row (i - 1)
set p to my pp's item i
if p = "" then -- skip any empty row
set end of qq to p
else
-- get row data, name and name components
set rr to text2list(p, tab) -- current row data
set n to my rr's item targetfield -- full name
set mm to text2list(n, space) -- name components delimited by space
-- special treatment in case name is enclosed in double quotes
if n starts with """ then -- original name is in double quotes
set mm to text2list(list2text(my mm, """ & tab & """), tab) -- quote every component
end if
-- adjust name components' length to match the given field length
set delta to sublen - (count my mm)
repeat delta times
set end of my mm to "" -- pad "" to end
end repeat
if delta < 0 then set mm to my mm's items 1 thru sublen -- truncate any extra, just in case
-- build new row data
set my rr's item targetfield to {n} & my mm
set end of my qq to list2text(my rr, tab)
end if
end repeat
-- (3) build output text and write it to output file
set t1 to list2text(qq, ORS)
writeData(t1, outfile, {_append:false, class:textclass})
return t1
end script
tell o to run
end main
on list2text(aa, delim)
list aa : source list
text delim : text item delimiter in list-text coercion
local t, astid, astid0
set astid to a reference to AppleScript's text item delimiters
try
set astid0 to astid's contents
set astid's contents to {delim}
set t to "" & aa
set astid's contents to astid0
on error errs number errn
set astid's contents to astid0
error "list2text(): " & errs number errn
end try
return t
end list2text
on text2list(t, delim)
text t : source text
text delim : text item delimiter in text-list conversion
local tt, astid, astid0
set astid to a reference to AppleScript's text item delimiters
try
set astid0 to astid's contents
set astid's contents to {delim}
set tt to t's text items
set astid's contents to astid0
on error errs number errn
set astid's contents to astid0
error "text2list(): " & errs number errn
end try
return tt
end text2list
on writeData(x, fp, {append:append, class:class})
data x: anything to be written to output file
string fp: output file path
boolean _append: true to append data, false to replace data
type class _class: type class as which the data is written
local fref
try
set fref to open for access (file fp) with write permission
if not _append then set eof fref to 0
write x as _class to fref starting at eof
close access fref
on error errs number errn
try
close access file fp
on error --
end try
error "writeData(): " & errs number errn
end try
end writeData
on getPathComponents(a)
alias or HFS path string : a
return record : {|parent|:p, |name|:n, |name stem|:m, |name extension|:x}, where -
p = parent path (trailing colon inclusive)
n = node name (trailing colon not inclusive)
m = node name without name extension (trailing period not inclusive)
x = name extension (leading period inclusive; i.e. n = m & x)
local astid, astid0, fp, p, n, m, x
set astid to a reference to AppleScript's text item delimiters
set astid0 to astid's contents
try
-- (0) preparation (strip trailing ":")
set fp to a as Unicode text
if fp ends with ":" and fp is not ":" then set fp to fp's text 1 thru -2
-- (1) get node's parent path and node name
set astid's contents to {":"}
tell fp's text items
if (count) ≤ 1 then
set {p, n} to {"", fp}
else
set {p, n} to {(items 1 thru -2 as Unicode text) & ":", item -1}
end if
end tell
-- (2) get node name stem and extension
set astid's contents to {"."}
tell n's text items
if (count) ≤ 1 then
set {m, x} to {n, ""}
else
set {m, x} to {items 1 thru -2 as Unicode text, "." & item -1 as Unicode text}
end if
end tell
set astid's contents to astid0
on error errs number errn
set astid's contents to astid0
error "getPathComponents(): " & errs number errn
end try
return {|parent|:p, |name|:n, |name stem|:m, |name extension|:x}
end getPathComponents
--END OF SCRIPT 2
Message was edited by: Hiroto (fixed the code a bit)