Lấy cảm hứng từ câu hỏi StackOverflow này .

Đầu vào:

Chúng tôi sẽ có ba đầu vào:

• Một ký tự phân cách Dđể phân chia
• Một nhân vật Igiữa hai trong số chúng ta bỏ qua nhân vật phân cách (tôi biết, điều đó nghe có vẻ mơ hồ, nhưng tôi sẽ giải thích nó bên dưới)
• Một chuỗi S

Đầu ra:

Một danh sách / mảng chứa các chuỗi con sau khi tách.

Thí dụ:

Input:
D = ','
I = '"'
S = '11020199,"Abc ",aduz,,444,bieb,dc,2 ,2222.00,whatever 5dc,222.22,22.00,"98,00","12,000,000",21-09-2018, 06:00,",-,"'

Output:
['11020199', 'Abc ', 'aduz', '', '444', 'bieb', 'dc', '2 ', '2222.00', 'whatever 5dc', '222.22', '22.00', '98,00', '12,000,000', '21-09-2018', ' 06:00', ',-,']

Tại sao? Tách trên dấu phẩy sẽ thường cũng chia 98,00, 12,000,000và ,-,trong hai / ba mảnh. Nhưng vì chúng nằm trong Iký tự đầu vào, chúng tôi bỏ qua việc bỏ qua phần tách ở đây.

Quy tắc thử thách:

• Bạn có thể giả sử sẽ luôn có một lượng Iký tự chẵn trong chuỗi đầu vào.
• Bạn có thể giả sử nhân vật Isẽ luôn có một ký tự Dbên cạnh (trừ khi đó là ký tự đầu tiên hoặc cuối cùng của đầu vào) vẫn có thể được phân chia chính xác. Vì vậy, bạn sẽ không có cái gì đó như thế D = ','; I = '"'; S = 'a,b"c,d"e,f', cũng không có gì như thế này D=','; I='"'; S='a",b,"c'.
• Chuỗi đầu vào Scó thể không chứa một trong hai Dhoặc I. Nếu nó không chứa D, chúng tôi xuất ra một danh sách với toàn bộ chuỗi đầu vào dưới dạng chỉ mục.
• Danh sách đầu ra sẽ không chứa ký tự Inữa, ngay cả khi nó không chứa D(như bạn có thể thấy khi "Abc "trở thành 'Abc 'trong ví dụ trên).
• Có thể là chuỗi con bên trong Ichỉ chứa D. Ví dụ: D = ','; I = '"'; S = 'a,",",b,"c","d,e,,",f'sẽ dẫn đến ['a', ',', 'b', 'c', 'd,e,,', 'f'].
• Bạn có thể cho rằng Dsẽ không bao giờ bắt đầu hoặc kết thúc S, vì vậy bạn sẽ không phải đối phó với các mục trống / dẫn đầu.
• Khi một đầu vào có hai liền kề D, chúng ta sẽ có một mục trống. Tức là D = ','; I = '"'; S = 'a,"b,c",d,,e,"",f'sẽ có kết quả ['a', 'b,c', 'd', '', 'e', '', 'f'].
• Bạn có thể giả sử đầu vào và đầu ra sẽ chỉ chứa ASCII có thể in trong phạm vi [32, 126](vì vậy không bao gồm các tab và dòng mới).
• Bạn cũng được phép xuất tất cả các mục được phân tách bằng dòng mới thay vì trả về / xuất ra một danh sách / mảng (đặc biệt đối với các ngôn ngữ không có danh sách / mảng; ví dụ như Retina).
• Bạn được phép xuất danh sách theo thứ tự đảo ngược nếu nó lưu byte. Mặc dù vậy, bạn không được phép xuất nó theo thứ tự được sắp xếp hoặc 'xáo trộn'. Vì vậy, D = ','; I = 'n'; S = 'a,2,b,3,c'có thể là đầu ra như [a,2,b,3,c]hoặc [c,3,b,2,a], nhưng không phải là [2,3,a,b,c,]hoặc [a,3,b,c,2]ví dụ.

Quy tắc chung:

• Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte thắng.
  Đừng để ngôn ngữ mã-golf ngăn cản bạn đăng câu trả lời với các ngôn ngữ không mã hóa. Cố gắng đưa ra một câu trả lời càng ngắn càng tốt cho ngôn ngữ lập trình 'bất kỳ'.
• Các quy tắc chuẩn áp dụng cho câu trả lời của bạn, vì vậy bạn được phép sử dụng STDIN / STDOUT, các hàm / phương thức với các tham số thích hợp và kiểu trả về, các chương trình đầy đủ. Cuộc gọi của bạn.
• Lỗ hổng mặc định bị cấm.
• Nếu có thể, vui lòng thêm một liên kết với một bài kiểm tra cho mã của bạn (ví dụ TIO ).
• Ngoài ra, thêm một lời giải thích cho câu trả lời của bạn rất được khuyến khích.

Các trường hợp thử nghiệm:

Input:
D = ','; I = '"'; S = 'a,"b,c",d,,e,"",f'
Output:
['a', 'b,c', 'd', '', 'e', '', 'f']

Input:
D = ','; I = '"'; S = '11020199,"Abc ",aduz,,444,bieb,dc,2 ,2222.00,whatever 5dc,222.22,22.00,"98,00","12,000,000",21-09-2018, 06:00,",-,"'
Output:
['11020199', 'Abc ', 'aduz', '', '444', 'bieb', 'dc', '2 ', '2222.00', 'whatever 5dc', '222.22', '22.00', '98,00', '12,000,000', '21-09-2018', ' 06:00', ',-,']

Input:
D = ' '; I = ','; S = 'this is a test , to see if you understand it, or not , hmmm, I think I have too many commas , or not , perhaps..'
Output:
['this', 'is', 'a', 'test', ' to see if you understand it', 'or', 'not', ' hmmm', 'I', 'think', 'I', 'have', 'too', 'many', 'commas', ' or not ', 'perhaps..']

Input:
D = 'x'; I = 'y'; S = 'contains no lowercase X nor Y'
Output:
['contains no lowercase X nor Y']

Input:
D = '1'; I = '3'; S = '3589841973169139975105820974944592078316406286208948254211370679314'
Output: ['58984197', '69', '9975105820974944592078', '64062862089482542', '', '70679', '4']

Input:
D = ' '; I = 'S'; S = 'regular split on spaces'
Output:
['regular', 'split', 'on', 'spaces']

Japt , 16 byte

qV mÏu ?X:XrWRÃq

Thử nó!

Về cơ bản, chiến lược tương tự như câu trả lời Pip mới hơn của DLosc, đặt các phần "được trích dẫn" sang một bên sau đó thay thế dấu phân cách bằng một dòng mới trong phần còn lại của chuỗi, dẫn đến đầu ra được phân tách bằng dòng mới

Giải thích đầy đủ:

qV                  Split on I
   m          Ã     For each segment:
    Ïu ?              If the segment has an odd index (quoted)...
        X             Keep it as-is
         :          Otherwise:
          XrWR        Replace each D in the segment with a newline
               q    Join it all to a single string

Lưu ý rằng ngay cả khi mục đầu tiên được trích dẫn, nó vẫn sẽ kết thúc ở chỉ số 1 chứ không phải chỉ mục 0. Nếu qtìm thấy một dấu phân cách làm ký tự đầu tiên, nó sẽ tạo mục đầu tiên trong phần tách (chỉ mục 0) thành một chuỗi trống, vì vậy nội dung của trích dẫn chính xác trở thành mục thứ hai (chỉ số 1). Dưới đây là một bản demo của giao dịch chính xác với một trích dẫn hàng đầu.

R , 34 byte

Thường xuyên không sửa đổi scanvới các đối số thích hợp cho text, sepvà quotenên làm điều đó.

function(D,I,S)scan(,t=S,"",,,D,I)

Hãy thử trực tuyến!

C (gcc) , 64 byte

c;f(d,i,s)char*s;{for(;*s;s++)*s==i?c=!c:putchar(d-*s|c?*s:10);}

Hãy thử trực tuyến!

JavaScript (Node.js) , 57 byte

(d,i,s)=>s.replace(c=/./g,e=>i==e?(c^=1,''):d!=e|c?e:`
`)

Hãy thử trực tuyến!

Python 2, 67 byte

import csv
lambda D,I,S:next(csv.reader(S,delimiter=D,quotechar=I))

Hãy thử trực tuyến!

Python 2, 71 byte

D,I,S=input()
k=1
for p in S.split(I):print p.replace(D*k,'\n'*k),;k^=1

Hãy thử trực tuyến!

Pip , 18 byte

FxcxQb?!:oOo?xRanx

Lấy đầu vào làm đối số dòng lệnh. Hãy thử trực tuyến!

Cách tiếp cận hoàn toàn khác nhau: xử lý chuỗi một ký tự tại một thời điểm và đưa ra kết quả mong muốn được phân định bằng dòng mới.

Làm sao?

                    a,b,c are cmdline args (respectively representing D,I,S); o is 1;
                    n is newline (implicit)
                    We use o for a flag indicating whether or not to change D into newline
Fxc                 For each character x in c:
   xQb?              If x equals b (the ignore character),
       !:o            Logically negate o in-place
          O          Else, output the following (with no trailing newline):
           o?         If o is truthy,
             xRan      x, with a (the delimiter) replaced with newline
                 x    Else, x unchanged

MATL , 24 byte

y=Yso~yi=*~*cO10Zt2G[]Zt

Đầu vào là S, I, D.

Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .

Làm thế nào nó hoạt động

Xem xét đầu vào D = ','; I = '"'; S = 'a,"b,c",d,,e,"",f'.

y     % Implicit inputs: S, I. Duplicate from below
      % STACK: 'a,"b,c",d,,e,"",f', '"', 'a,"b,c",d,,e,"",f'
=     % Is equal? Element-wise
      % STACK: 'a,"b,c",d,,e,"",f', [0 0 1 0 0 0 1 0 0 0 0 0 0 1 1 0 0]
Ys    % Cumulative sum
      % STACK: 'a,"b,c",d,,e,"",f', [0 0 1 1 1 1 2 2 2 2 2 2 2 3 4 4 4]
o~    % Parity, negate
      % STACK: 'a,"b,c",d,,e,"",f', [1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1]
y     % Duplicate from below
      % STACK: 'a,"b,c",d,,e,"",f', [1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1], 'a,"b,c",d,,e,"",f'
i=    % Input: D. Is equal? Element-wise
      % STACK: 'a,"b,c",d,,e,"",f', [1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1], [0 1 0 0 1 0 0 1 0 1 1 0 1 0 0 1 0]
*~    % Multiply, negate (equivalent to NAND). Element-wise
      % STACK: 'a,"b,c",d,,e,"",f', [1 0 1 1 1 1 1 0 1 0 0 1 0 1 1 0 1]
*     % Multiply, element-wise. Characters are converted to ASCII code
      % STACK: [97 0 34 98 44 99 34 0 100 0 0 101 0 34 34 0 102]
c     % Convert to char (character 0 is shown here as '·')
      % STACK: 'a·"b,c"·d··e·""·f'
O10   % Push 0 and then 10
      % STACK: 'a·"b,c"·d··e·""·f', 0, 10
Zt    % Replace character 0 by character 10 (newline; shown here as '¶')
      % STACK: 'a¶"b,c"¶d¶¶e¶""¶f'
2G[]  % Push second input (I) and then [] (empty array)
      % STACK: 'a¶"b,c"¶d¶¶e¶""¶f', '"', []
Zt    % Replace character given by input I by empty; that is, remove it. Implicit display
      % STACK: 'a¶b,c¶d¶¶e¶¶f'

Võng mạc , 45 byte

L$`(?=.*¶(.)¶(.))(\2(.*?)\2|(.*?))(\1|¶)
$4$5

Hãy thử trực tuyến! Giải trình:

(?=.*¶(.)¶(.))(\2(.*?)\2|(.*?))(\1|¶)

Nhìn về phía trước để tìm các giá trị của Dvà Itrên hai dòng sau. Sau đó, nếu chúng ta tìm thấy một Isau đó ăn nó và phù hợp với nhân vật tiếp theo Ivà D, nếu không chỉ phù hợp với nhân vật tiếp theo Dhoặc cuối dòng.

L$`
$4$5

Danh sách chụp 4 và 5 từ mỗi trận đấu; 4 là chụp giữa hai Is trong khi 5 là chụp giữa hai Ds.

Powershell, 71 byte

param($d,$i,$s)$s-split{(1-($script:a+=$i-ceq$_)%2)*($d-ceq$_)}|% *m $i

Kịch bản kiểm tra ít chơi gôn hơn:

$f = {

param($d,$i,$s)
$s-split{
    $script:a+=$i-ceq$_
    (1-$a%2)-and($d-ceq$_)
}|% Trim $i

}

@(
    ,(',','"',
    '',
    '')

    ,(',','"',
    'a,"b,c",d,,e,"",f',
    'a', 'b,c', 'd', '', 'e', '', 'f')

    ,(',','"',
    '11020199,"Abc ",aduz,,444,bieb,dc,2 ,2222.00,whatever 5dc,222.22,22.00,"98,00","12,000,000",21-09-2018, 06:00,",-,"',
    '11020199', 'Abc ', 'aduz', '', '444', 'bieb', 'dc', '2 ', '2222.00', 'whatever 5dc', '222.22', '22.00', '98,00', '12,000,000', '21-09-2018', ' 06:00', ',-,')

    ,(' ',',',
    'this is a test , to see if you understand it, or not , hmmm, I think I have too many commas , or not , perhaps..',
    'this', 'is', 'a', 'test', ' to see if you understand it', 'or', 'not', ' hmmm', 'I', 'think', 'I', 'have', 'too', 'many', 'commas', ' or not ', 'perhaps..')

    ,('x','y',
    'contains no lowercase X nor Y',
    'contains no lowercase X nor Y')

    ,('1','3',
    '3589841973169139975105820974944592078316406286208948254211370679314',
    '58984197', '69', '9975105820974944592078', '64062862089482542', '', '70679', '4')

    ,(' ','S',
    'regular split on spaces',
    'regular', 'split', 'on', 'spaces')

) | % {
    $d,$i,$s,$expected = $_
    $result = &$f $d $i $s
    "$("$result"-eq"$expected"): $result"
}

Đầu ra:

True:
True: a b,c d  e  f
True: 11020199 Abc  aduz  444 bieb dc 2  2222.00 whatever 5dc 222.22 22.00 98,00 12,000,000 21-09-2018  06:00 ,-,
True: this is a test  to see if you understand it or not  hmmm I think I have too many commas  or not  perhaps..
True: contains no lowercase X nor Y
True: 58984197 69 9975105820974944592078 64062862089482542  70679 4
True: regular split on spaces

Giải trình:

• Khối script trong -split{...}quy định cụ thể để áp dụng dấu phân cách. Xem about_split .
• $script:a=...đặt biến atrong phạm vi bên ngoài .
• -ceqcó nghĩa là phương trình phân biệt chữ hoa chữ thường .
• |% trim $igọi một phương thức trimvới đối số$i .

SNOBOL4 (CSNOBOL4) , 109 byte

	D =INPUT
	I =INPUT
	S =INPUT
S	S (I ARB . OUTPUT I | ARB . OUTPUT) (D | RPOS(0)) REM . S	DIFFER(S)	:S(S)
END

Hãy thử trực tuyến!

Giả sử rằng D =','và I ='"'. Sau đó, mẫu (I ARB . OUTPUT I | ARB . OUTPUT) (D | RPOS(0))khớp với các chuỗi trông giống ".*"hoặc .*theo sau bởi ,hoặc ở cuối chuỗi và OUTPUT là các ký tự ( .*) tùy ý , đặt Remainder chưa từng có Svà lặp lại miễn Slà không trống.

Pip -n , 29 24 byte

cR Xa[na]@(bN{$`})^n||:b

Lấy đầu vào làm đối số dòng lệnh. Hãy thử trực tuyến!

Chiến lược: Icác cặp bên ngoài , thay thế Dbằng dòng mới (vì chúng tôi đảm bảo rằng dòng mới sẽ không xuất hiện trong chuỗi). Sau đó phân chia trên dòng mới và dải I.

Thạch ,  20  18 byte

;`j⁵œṣ⁴œṣḊṖYʋ€Ðo³Y

Một chương trình đầy đủ lấy ba đối số D, I, Smà in mỗi mục trên một dòng.

Hãy thử trực tuyến! (Footer tham gia với dòng mới)

Làm sao?

Bao quanh với một phần phụ Dở mỗi bên, chia Ithành s, chia các mục được lập chỉ mục lẻ tại Ds sau đó loại bỏ đầu và đuôi của chúng và nối chúng với dòng mới, cuối cùng tham gia kết quả với dòng mới.

PHP , 50 byte

function q($D,$I,$S){return str_getcsv($S,$D,$I);}

Hãy thử trực tuyến! Sử dụng một chức năng tích hợp .

Nếu sắp xếp lại các đầu vào được cho phép ( (S,D,I)để phù hợp với str_getcsvchữ ký), tôi có phiên bản 44 byte .