ฉันใช้ "คำต่อท้าย" ที่นี่อย่างอิสระเพื่อหมายถึง "สตริงย่อยใด ๆ ที่ตามหลังคำนำหน้า"

"คำนำหน้า" ที่นี่หมายถึงการเริ่มต้นของคำที่คำเริ่มต้นถูกกำหนดให้เป็นหลังช่องว่างหรือจากอักขระตัวแรกของข้อความที่ป้อน (สำหรับคำแรก) "คำนำหน้า" ในช่วงกลางของคำจะถูกละเว้น

เช่นถ้าคำนำหน้าการป้อนข้อมูลของคุณคือ "แขน" และข้อความอินพุตคือ "กองทัพของดัมเบิลดอร์มีอาวุธครบมือสำหรับอาร์มาเก็ดดอนที่กำลังจะมา" ดังนั้นรายการเอาท์พุทจะมี (y, ed, ageddon)

กรณีทดสอบ

ถือว่าเป็นกรณี ๆ ไปสตริงสิ้นสุดลงหลังจากช่องว่าง อินพุตจะไม่ขึ้นต้นด้วยช่องว่าง

การลบรายการที่ซ้ำกันเป็นทางเลือก

Input prefix: "1"

Input text:

"He1in aosl 1ll j21j 1lj2j 1lj2 1ll l1j2i"

Output: (ll, lj2j, lj2) - in any permutation

Input prefix: "frac"

Input text: 

"fracking fractals fracted fractional currency fractionally fractioned into fractious fractostratic fractures causing quite a fracas"

Output: (king, tals, ted, tional, tionally, tioned, tious, tostratic, tures, as)

Input prefix: "href="https://www.astrotheme.com/astrology/"

Input text: 

"(div style="padding: 0; background: url('https://www.astrotheme.com/images/site/arrondi_450_hd.png') no-repeat; text-align: left; font-weight: bold; width: 450px; height: 36px")
  (div class="titreFiche" style="padding: 5px 0 0 6px")(a href="https://www.astrotheme.com/astrology/Nolwenn_Leroy" title="Nolwenn Leroy: Astrology, birth chart, horoscope and astrological portrait")Nolwenn Leroy(br /)
(/div)
  (div style="text-align: right; border-left: 1px solid #b2c1e2; border-right: 1px solid #b2c1e2; width: 446px; padding: 1px 1px 0; background: #eff8ff")
    (table style="width: 100%")(tr)(td style="width: 220px")
(div style="padding: 0; background: url('https://www.astrotheme.com/images/site/arrondi_450_hd.png') no-repeat; text-align: left; font-weight: bold; width: 450px; height: 36px")
  (div class="titreFiche" style="padding: 5px 0 0 6px")(a href="https://www.astrotheme.com/astrology/Kim_Kardashian" title="Kim Kardashian: Astrology, birth chart, horoscope and astrological portrait")Kim Kardashian(br /)(span style="font-weight: normal; font-size: 11px")Display her detailed horoscope and birth chart(/span)(/a)(/div)
(/div)
(div style="padding: 0; background: url('https://www.astrotheme.com/images/site/arrondi_450_hd.png') no-repeat; text-align: left; font-weight: bold; width: 450px; height: 36px")
  (div class="titreFiche" style="padding: 5px 0 0 6px")(a href="https://www.astrotheme.com/astrology/Julia_Roberts" title="Julia Roberts: Astrology, birth chart, horoscope and astrological portrait")Julia Roberts(br /)(span style="font-weight: normal; font-size: 11px")Display her detailed horoscope and birth chart(/span)(/a)(/div)
    (td id="cfcXkw9aycuj35h" style="text-align: right")
  (/div)"

Output: (Nolwenn_Leroy", Kim_Kardashian", Julia_Roberts")

ผู้ชนะ

นี่คือรหัสกอล์ฟดังนั้นจำนวนไบต์ที่น้อยที่สุดจึงชนะ :)

สามารถรับอินพุตในลักษณะใดก็ได้ที่ทำงานได้ตราบใดที่โค้ดของคุณสามารถแก้ไขปัญหาตามอำเภอใจเช่นกรณีทดสอบ

R , 63 ไบต์

function(s,p,z=el(strsplit(s,' ')))sub(p,'',z[startsWith(z,p)])

ลองออนไลน์!

การใช้งานเชิงบวก - lookbehind น่าเสียดายที่ 5 ไบต์นานขึ้นเนื่องจากการregmatches/gregexprรวมกันอย่างมาก:

function(s,p)regmatches(s,gregexpr(paste0('(?<=',p,')[^ ]*'),s,,T))

เยลลี่ 12 ไบต์

Ḳfṛ"€¥Ḋ€ṫ€L}

ลองออนไลน์!

Japt , 9 ไบต์

8 ไบต์ถ้าเราสามารถใส่เป็นอาร์เรย์ของคำ

¸kbV msVl
¸         // Shorthand for `qS`, split into words.
 kbV      // Filter the words, selecting only those that start with the prefix.
     msVl // For each remaining word, remove prefix length chars from the start.

ลองออนไลน์!

Python 2 , 57 56 ไบต์

lambda i,j:[w[len(i):]for w in j.split()if w.find(i)==0]

ลองออนไลน์!

-1 ด้วย @mypetlion

C (gcc) , 113 109 106 105 105 ไบต์

-4 ไบต์ต้องขอบคุณ @LambdaBeta!
-3 ไบต์ขอบคุณ @WindmillCookies!

i;f(char*s,char*t){for(i=strlen(s);*t;t++)if(!strncmp(t,s,i))for(t+=i,puts("");*t^32&&*t;)putchar(*t++);}

ลองออนไลน์!

Japt , 16 12 ไบต์

พอร์ตของ Arnauld

-4 ไบต์จาก @Shaggy

iS qS+V Å®¸g

iS                  Insert S value (S = " ") at beginning of first input (Implicit)
   q                split using
    S+V             S + Second input
        Å           slice 1
         ®          map
          ¸         split using S
           g        get first position

ลองออนไลน์!

05AB1E , 11 ไบต์

#ʒηså}εsgF¦

ลองออนไลน์! (ที่นี่คือตัวอย่างสำหรับสตริงหลายบรรทัด)

มันทำงานยังไง?

# ʒηså} εsgF¦ โปรแกรมเต็มรูปแบบ
# แยกอินพุตแรกด้วยช่องว่าง
 ʒ} กรองคำโดย ...
  ...så ... "อินพุตที่สองเกิดขึ้นในส่วนนำหน้าของคำหรือไม่"
      εและสำหรับแต่ละคำที่ถูกต้อง
       sg ดึงความยาวของอินพุตที่สอง
         F¦ และวางตัวอักษรตัวแรกของคำว่าจำนวนครั้ง

Stax , 8 ไบต์

·B¬╤²*6&

เรียกใช้และแก้ไขข้อบกพร่อง

คำอธิบาย:

j{x:[fmx|- Full program, implicit input: On stack in order, 1st input in X register
j          Split string on spaces
 {   f     Filter:
  x:[        Is X a prefix?
      m    Map passing elements:
       x|-   Remove all characters in X the first time they occur in the element
             Implicit output

ฉันยังสามารถใช้x%t(ความยาวของ X, ตัดจากซ้าย) ซึ่งเป็นอย่างเท่าเทียมกันยาว แต่แพ็ค 9 ไบต์

เรติน่า 31 ไบต์

L`(?<=^\2¶(.|¶)*([^ ¶]+))[^ ¶]+

ลองออนไลน์! บรรทัดแรกควรเป็นคำนำหน้าที่ต้องการส่วนที่เหลือเป็นข้อความอินพุต ห้ามลบรายการซ้ำ จะเป็น 25 ไบต์หากพื้นที่สีขาวเป็นตัวคั่นที่ถูกต้อง คำอธิบาย: เราต้องการที่จะแสดงรายการคำต่อท้ายของคำนำหน้าที่ถูกต้อง [^ ¶]+ตรงกับคำต่อท้ายของตัวเอง คำนำหน้าของ regexp คือ lookbehind ที่ทำให้แน่ใจว่าคำนำหน้าของคำต่อท้ายคือคำนำหน้าอินพุต เนื่องจาก lookbehind ได้รับการประเมินจากขวาไปซ้ายการดำเนินการนี้จะเริ่มต้นด้วยการจับคู่คำนำหน้า (ใช้รูปแบบเดียวกัน แต่ใช้รูปแบบเดียวกัน()เพื่อจับภาพ) จากนั้นอักขระใด ๆ ก่อนที่จะจับคู่คำนำหน้าในบรรทัดของตัวเอง

Brachylog , 24 21 ไบต์

tṇ₁W&h;Wz{tR&h;.cR∧}ˢ

ลองออนไลน์!

อาจสั้นลงสักสองสามไบต์หากมีการแบ่งปันตัวแปรกับเพรดิเคตแบบอินไลน์

อินพุตเป็นอาร์เรย์ที่มีคำนำหน้าเป็นองค์ประกอบแรกและข้อความเป็นองค์ประกอบที่สอง

tṇ₁W                    % Split the text at spaces, call that W
    &h;Wz               % Zip the prefix with each word, to give a list of pairs
         {         }ˢ   % Select the outputs where this predicate succeeds:
          tR            % Call the current word R
            &h;.c       % The prefix and the output concatenated
                 R      % should be R
                  ∧     % (No more constraints on output)

สูตร IBM / Lotus Notes ขนาด 54 ไบต์

c:=@Explode(b);@Trim(@If(@Begins(c;a);@Right(c;a);""))

จะใช้เวลาของการป้อนข้อมูลจากสองเขตข้อมูลชื่อและa bทำงานได้เนื่องจากสูตรจะใช้ฟังก์ชันซ้ำกับรายการซ้ำโดยไม่จำเป็นต้องใช้@Forวนซ้ำ

ไม่มี TIO ให้ดูที่นี่เป็นภาพหน้าจอ:

APL (Dyalog Unicode) , 23 ไบต์^SBCS

โปรแกรมเต็มรูปแบบ พร้อมต์สำหรับข้อความและคำนำหน้าจาก stdin พิมพ์รายการไปยัง stdout

(5⌽'(\w+)\b',⎕)⎕S'\1'⊢⎕

ลองออนไลน์!

⎕ พรอมต์ (สำหรับข้อความ)

⊢ ให้ผลผลิตนั้น (แยก'\1'จาก⎕)

(… )⎕S'\1' PCRE ค้นหาและส่งคืนรายการกลุ่มการจับ 1 จาก regex ต่อไปนี้:

 ⎕ พรอมต์ (สำหรับคำนำหน้า)

 '(\w+)\b', เติมสตริงนี้ (กลุ่มของอักขระคำตามด้วยขอบเขตคำ)

 5⌽ หมุน 5 ตัวอักษรแรกไปจนสุด; '\bPREFIX(\w+)'

C (เสียงดังกราว) , 107 ไบต์

i;f(s,t,_)char*s,*t,*_;{i=strlen(s);_=strtok(t," ");while((strncmp(_,s,i)||puts(_+i))&&(_=strtok(0," ")));}

ลองออนไลน์!

รายละเอียด:

i;f(s,t,_)char*s,*t,*_;{   // F takes s and t and uses i (int) and s,t,u (char*)
    i=strlen(s);           // save strlen(s) in i
    _=strtok(t," ");       // set _ to the first word of t
    while(                 // while loop
        (strncmp(_,s,i)||  // short-circuited if (if _ doesn't match s to i places)
         puts(_+i))        // print _ starting at the i'th character
        &&                 // the previous expression always returns true
        (_=strtok(0," "))) // set _ to the next word of t
    ;                      // do nothing in the actual loop
}

ต้องมีเสียงดังเพราะ gcc segfaults ที่ไม่มี#include <string.h>ปัญหาของ strtok

MATL, 17 ไบต์

Yb94ih'(.*)'h6&XX

ลองใช้กับ MATL Online

อย่างไร?

Yb - แยกอินพุตที่ช่องว่างวางผลลัพธ์ในอาร์เรย์เซลล์

94- รหัส ASCII สำหรับ^ตัวละคร

ih - รับอินพุต (พูดว่า "frac") เชื่อมต่อ '^' และอินพุต

'(.*)'h- กดสตริง'(.*)'ลงในสแต็กเชื่อม '^ frac' และ '(. *)' ดังนั้นตอนนี้เรามี'^frac(.*)regex ที่ตรงกับ "frac" ที่จุดเริ่มต้นของสตริงและจับสิ่งที่เกิดขึ้นหลังจากนั้น

6&XX - เรียกใช้การจับคู่ regexp ด้วย 6&ระบุโหมด 'โทเค็น' เช่นกลุ่มการจับคู่ที่ตรงกันจะถูกส่งคืนแทนการจับคู่ทั้งหมด

แสดงผลลัพธ์โดยปริยาย

Bash + grep, 20 ไบต์

grep -Po "\b$1\K\S*"

คำนำหน้าถูกกำหนดเป็นพารามิเตอร์บรรทัดคำสั่งและข้อความอินพุตจะถูกไพพ์ผ่านทาง stdin

ลองออนไลน์!

PowerShell 3.0, 60 62 59 ไบต์

param($p,$s)-split$s|%{if($_-cmatch"^$p(.*)"){$Matches[1]}}

สูญเสียบางไบต์ที่ระงับเอาต์พุต cmatch มีวิธีการแก้ปัญหาที่ได้รับบางอย่างโดยจงใจทำให้ซ้ำซ้อน แต่มันก็โยน Redlines ถ้ามันไม่ตรงกันในตอนแรก แต่มันก็ไม่เป็นไรตอนนี้ที่ฉันคิดเกี่ยวกับมัน +2 ไบต์เพื่อแก้ไข

JavaScript (ES6), 57 ไบต์

รับอินพุตในรูปแบบ currying (text)(prefix)จะเข้าในไวยากรณ์ห้ามลบรายการซ้ำ

s=>p=>(' '+s).split(' '+p).slice(1).map(s=>s.split` `[0])

ลองออนไลน์!

JavaScript (Node.js) , 64 59 ไบต์

-5 ไบต์จาก @Shaggy

a=>b=>b.match(eval(`/\\b${a}\\w*/g`)).map(x=>x.split(a)[1])

ลองออนไลน์!

Haskell , 51 ไบต์

p#x=[length p`drop`y|y<-words x,and$zipWith(==)p y]

ลองออนไลน์!

แกลบขนาด 11 ไบต์

สวยมากแค่พอร์ตของคำตอบ Haskell :

m↓L⁰foΠz=⁰w

ลองออนไลน์!

คำอธิบาย

m↓L⁰f(Πz=⁰)w  -- prefix is explicit argument ⁰, the other one implicit. eg: ⁰ = "ab" and implicit "abc def"
           w  -- words: ["abc","def"]
    f(    )   -- filter by (example w/ "abc"
       z=⁰    -- | zip ⁰ and element with equality: [1,1]
      Π       -- | product: 1
              -- : ["abc"]
m             -- map the following
 ↓            -- | drop n elements
  L⁰          -- | n being the length of ⁰ (2)
              -- : ["c"]

เยลลี่ ,  11  9 ไบต์

Ḳœṣ€ḢÐḟj€

ลิงก์ dyadic ยอมรับข้อความ (รายการอักขระ) ทางด้านซ้ายและคำนำหน้า (รายการอักขระ) ทางด้านขวาซึ่งให้รายการของรายการอักขระ (ส่วนต่อท้ายที่เป็นผลลัพธ์)

ลองออนไลน์! (ส่วนท้ายร่วมกับช่องว่างเพื่อหลีกเลี่ยงการดีดโดยนัยของโปรแกรมเต็มรูปแบบ)
หมายเหตุ: ฉันเพิ่มสามกรณีขอบลงในสตริงใน OP - unfrackled และ nofracfracheremate ที่จุดเริ่มต้นซึ่งไม่ควรเอาท์พุทและ fracfracit ไปยังจุดสิ้นสุดซึ่งควรส่งออก fracit

อย่างไร?

Ḳœṣ€ḢÐḟj€ - Link: text, prefix                        e.g. "fracfracit unfracked", "frac"
Ḳ         - split (text) at spaces -> list of words        ["fracfracit", "unfracked"]
   €      - for each (word):
 œṣ       -   split around sublists equal to (prefix)       ["","","it"]  ["un","ked"]
     Ðḟ   - filter discard items for which this is truthy:
    Ḣ     -   head
          -   -- Crucially this modifies the list:             ["","it"]       ["ked"]
          -   -- and yields the popped item:                 ""            "un"
          -   -- and only non-empty lists are truthy:       kept          discarded
          -            ...so we end up with the list:      [["","it"]]
        € - for each (remaining list of lists of characters):
       j  -   join with the prefix                          "fracit"                                             
          -                                                ["fracit"]

11 byter ก่อนหน้า:

Ḳs€L}Ḣ⁼¥ƇẎ€

นอกจากนี้ลิงค์ dyadic ดังกล่าวข้างต้น

ลองออนไลน์!

Perl 5 กับ -asE, 23 22 21 bytes (?)

say/^$b(.*)/ for@F

ลองออนไลน์!

สามารถทำงานเป็น commandline หนึ่งซับ เป็นหรือชื่อไฟล์ในสถานที่ที่ผ่านมาperl -asE 'say/^$b(.*)/ for@F' -- -b=frac - หรือจากไฟล์สคริปต์ให้พูด-
perl -as -M5.010 script.pl -b=frac - (ขอบคุณ @Brad Gilbert b2gills สำหรับลิงก์ TIO ที่แสดงถึงสิ่งนี้)

รหัสตัวเองคือ 18 ไบต์ฉันเพิ่ม 3 ไบต์สำหรับ-b=ตัวเลือกที่กำหนดค่า (อินพุตคำนำหน้า) ให้กับตัวแปรที่มีชื่อ$bในรหัส ที่ให้ความรู้สึกเหมือนเป็นข้อยกเว้นสำหรับฉันทามติ "ธงไม่นับ"

-a@Fแยกสายการป้อนข้อมูลแต่ละพื้นที่และสถานที่ผลในอาร์เรย์ -sเป็นวิธีลัดของการกำหนดอาร์กิวเมนต์บรรทัดคำสั่งเป็นตัวแปรโดยให้ชื่อบนบรรทัดคำสั่ง นี่อาร์กิวเมนต์เป็น-b=fracสถานที่ที่คำนำหน้า "frac" $bในตัวแปร

/^$b(.*)/- จับคู่ค่า$bที่จุดเริ่มต้นของสตริง .*เป็นสิ่งที่เกิดขึ้นหลังจากนั้นจนกว่าจะสิ้นสุดของคำและ parantheses โดยรอบจับค่านี้ sayค่าที่ถูกจับจะถูกส่งกลับโดยอัตโนมัติที่จะพิมพ์โดย วนซ้ำคำที่คั่นด้วยช่องว่างด้วยfor @Fหมายความว่าเราไม่จำเป็นต้องตรวจสอบช่องว่างเริ่มต้นหรือช่องว่างสุดท้าย

Perl 6 , 30 ไบต์

{$^t.comb: /[^|' ']$^p <(\S+/}

ทดสอบมัน

ขยาย:

{  # bare block lambda with placeholder params $p, $t

  $^t.comb:    # find all the substrings that match the following
  /
    [ ^ | ' ' ] # beginning of string or space
    $^p        # match the prefix
    <(         # don't include anything before this
    \S+        # one or more non-space characters (suffix)
  /
}

Java 10, 94 ไบต์

p->s->{for(var w:s.split(" "))if(w.startsWith(p))System.out.println(w.substring(p.length()));}

ลองออนไลน์ได้ที่นี่ที่นี่

Ungolfed:

p -> s -> { // lambda taking prefix and text as Strings in currying syntax
    for(var w:s.split(" ")) // split the String into words (delimited by a space); for each word ...
        if(w.startsWith(p)) //  ... test whether p is a prefix ...
            System.out.println(w.substring(p.length())); // ... if it is, output the suffix
}

พื้นฐานขนาดเล็ก 242 ไบต์

สคริปต์ที่ไม่รับอินพุตและเอาต์พุตไปยังTextWindowObject

c=TextWindow.Read()
s=TextWindow.Read()
i=1
While i>0
i=Text.GetIndexOf(s," ")
w=Text.GetSubText(s,1,i)
If Text.StartsWith(w,c)Then
TextWindow.WriteLine(Text.GetSubTextToEnd(w,Text.GetLength(c)+1))
EndIf
s=Text.GetSubTextToEnd(s,i+1)
EndWhile

ลองที่ SmallBasic.com! ต้องใช้ IE / Silverlight

Python 2 , 53 ไบต์

lambda i,j:[w.split()[0]for w in j.split(i)if len(w)]

ลองออนไลน์!

Brachylogขนาด 12 ไบต์

hṇ₁∋R&t;.cR∧

ลองออนไลน์!

รับอินพุต[text, prefix]ผ่านตัวแปรอินพุตและสร้างแต่ละคำผ่านตัวแปรเอาต์พุต นี่เป็นคำตอบเดิมของ sundar ซึ่งฉันเริ่มลองเล่นกอล์ฟหลังจากอ่านแล้วว่า "อาจสั้นลงสักสองสามไบต์หากมีการแบ่งปันตัวแปรกับภาคแสดงอินไลน์" ซึ่งเป็นไปได้ตอนนี้ ปรากฎว่าเอาท์พุทเครื่องกำเนิดไฟฟ้าช่วยประหยัดไบต์ได้มากขึ้น

    R           R
   ∋            is an element of
h               the first element of
                the input
 ṇ₁             split on spaces,
     &          and the input
      t         's last element
         c      concatenated
       ;        with
        .       the output variable
          R     is R
           ∧    (which is not necessarily equal to the output).

สองความพยายามครั้งแรกของฉันในการตีกอล์ฟโดยใช้คุณสมบัติใหม่ของภาษา:

ด้วยตัวแปรส่วนกลางที่หวังไว้: hA⁰&tṇ₁{∧A⁰;.c?∧}ˢ(18 ไบต์)

ด้วย metapredicate นำไปใช้กับ: ṇ₁ᵗz{tR&h;.cR∧}ˢ(16 ไบต์)

และโซลูชันดั้งเดิมของฉัน:

Brachylogขนาด 15 ไบต์

ṇ₁ʰlᵗ↙X⟨∋a₀⟩b↙X

ลองออนไลน์!

I / O เดียวกัน นี่คือเครื่องกำเนิดไฟฟ้าสำหรับคำที่มีคำนำหน้า, ṇ₁ʰ⟨∋a₀⟩ซึ่งแก้ไขเพื่อลบคำนำหน้า

                   The input variable
  ʰ                with its first element replaced with itself
ṇ₁                 split on spaces
    ᵗ              has a last element
   l               the length of which
     ↙X            is X,
       ⟨   ⟩       and the output from the sandwich
       ⟨∋  ⟩       is an element of the first element of the modified input
       ⟨ a₀⟩       and has the last element of the input as a prefix.
                   The output variable
       ⟨   ⟩       is the output from the sandwich
            b      with a number of characters removed from the beginning
             ↙X    equal to X.

เพรดิเคตที่แตกต่างกันมากโดยมีจำนวนไบต์เดียวกัน:

Brachylogขนาด 15 ไบต์

hṇ₁∋~c₂Xh~t?∧Xt

ลองออนไลน์!

I / O เดียวกัน

   ∋               An element of
h                  the first element of
                   the input variable
 ṇ₁                split on spaces
    ~c             can be un-concatenated
      ₂            into a list of two strings
       X           which we'll call X.
        h          Its first element
         ~t        is the last element of
           ?       the input variable,
            ∧      and
             Xt    its last element is
                   the output variable.

สีแดง 62 ไบต์

func[p s][parse s[collect[any[p keep to[" "| end]| thru" "]]]]

ลองออนไลน์!

Pyth , 21 20 18 17 16 ไบต์

AQVcH)IqxNG0:NG"

ลองออนไลน์!

-1 โดยใช้VแทนFNเพราะVตั้งค่าโดยปริยายN

-2 หลังจากอ่านเพิ่มเติมเกี่ยวกับตัวเลือกการแบ่งสตริง

-1 ใช้xเพื่อตรวจสอบสถานะของสตริงย่อยที่ดัชนี 0

-1 ใช้แทนที่ด้วย "" สำหรับการสิ้นสุดของสตริง

ฉันแน่ใจว่าสิ่งนี้สามารถใช้การเล่นกอล์ฟอย่างจริงจังได้ แต่ในฐานะผู้เริ่มต้นของ Pyth การทำงานให้เป็นโบนัส

มันทำงานยังไง?

assign('Q',eval_input())
assign('[G,H]',Q)
for N in num_to_range(chop(H)):
    if equal(index(N,G),0):
        imp_print(at_slice(N,G,""))

Excel VBA ขนาด 86 ไบต์

รับอินพุตเป็นส่วนนำหน้า[A1]และค่าใน[B1]และเอาต์พุตไปยังคอนโซล

For each w in Split([B1]):?IIf(Left(w,[Len(A1)])=[A1],Mid(w,[Len(A1)+1])+" ","");:Next