Programming-Idioms

(setf s "a
b
c
d")

s : String := "Will this compile? " &
     "Oh yes it will";

char *s = "Huey\n"
          "Dewey\n"
          "Louie";

(def s "Murs, ville,
Et port,
Asile
De mort,
Mer grise
Où brise
La brise,
Tout dort.")

IDENTIFICATION DIVISION.
PROGRAM-ID. multi-line string.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 s    PIC X(20).
01 str  PIC X(5) VALUE 'COBOL'.
01 str1 PIC X(4) VALUE 'RULE'.
01 str2 PIC X(3) VALUE 'THE'.
01 str3 PIC X(5) VALUE 'WORLD'.
PROCEDURE  DIVISION.       
    STRING str ' ' str1 ' ' str2 ' ' str3 
    DELIMITED BY SIZE INTO s
STOP RUN.

std::string s = R"( Earth is a planet.
So is the Jupiter)";

string s = @"Huey
Dewey
Louie";

auto s = `line1
line2
line3`;

auto s = r"line1
line2
line3";

auto s = "One,
Two,
Three
";

var s = '''A
multi-line
string''';

var s = """A
multi-line
string""";

s = ~S"""
This will print multiline
and escape char like \G
"""

s = """
multiline
heredoc
"""

s = "Spanning
string
works"

S = "Strings
may span
across multiple lines"
"and they can"
"have as many portions"
"as you want"
"all of them quoted".

  s = "Hello &
      &World"

s := `Huey
Dewey
Louie`

def s = """\
	line 1
	line 2
	line 3""".stripIndent()

def s = """line 1
line 2
line 3"""

s = unlines [
     "several"
    ,"lines"
    ,"of"
    ,"text"]

s :: String
s = "We will put a backslash to take a break\
     \and then a backslash to resume"

let s = "This is a very long string which needs \n" +
        "to wrap across multiple lines because \n" +
        "otherwise my code is unreadable.";

let s = "This is a very long string which needs \
to wrap across multiple lines because \
otherwise my code is unreadable.";

let s = `This is a very long string which needs 
to wrap across multiple lines because 
otherwise my code is unreadable.`;

String s = """
This is a very long string which needs
to wrap across multiple lines because
otherwise my code is unreadable.
""";

String s, n = lineSeparator();
s = "line 1" + n;
s = s + "line 2" + n;
s = s + "line 3" + n;
s = s + "line 4";

String s;
StringBuilder b = new StringBuilder();
Formatter f = new Formatter(b);
f.format("line 1%n");
f.format("line 2%n");
f.format("line 3%n");
f.format("line 4");
f.flush();
s = b.toString();

String s = "This is a very long string which needs \n" +
           "to wrap across multiple lines because \n" +
           "otherwise my code is unreadable.";

val s =
    """
    This is my
    multi-line string.
    """

s = [[
Huey
Dewey
Louie
]]

s = 'Huey \n'..
'Dewey \n'..
'Louie'

local s = "The quick brown fox \z
           jumped over the lazy dog.\
This the second line.  "

NSString *s=@"Huey\n"
            @"Dewey\n"
            @"Louie";

$s = "This string 
is spanning
three lines";

$s = <<<EOD
Huey
Dewey
Louie
EOD;

var 
  s: String;
begin
  s := 'one' + sLineBreak + 'two' + sLineBreak + 'three'
end.

var 
  _s: String;
begin
  _s := 'one' + LineEnding + 'two' + LineEnding + 'three'
end.

var 
  s: String;
begin
  s := '''
one
two
three
''';
end.

$s =<<EOSTR;
One of the ways to create multiline text is called
the "here doc" (lifted from various UNIX shells).
A 'here doc' is the <<tag construct.  Perl continues to treat
all the text found as part of the string until there's a line containing
the EOSTR tag at the beginning
EOSTR

$s = q{
There are a good few ways to create multiline
text strings in perl.
};

$s = "Perl normally allows
strings to contain newlines.";

s = """Huey
Dewey
Louie"""

s = ('line 1\n'
     'line 2\n'
     'line 3\n'
     'line 4')

s = "Spanning
string
works"

s = <<EOS
This is a
multi-line string.
We call it a "heredoc"
EOS

let s = r#"Huey
Dewey
Louie"#;

let s = "line 1
line 2
line 3";

val s = """line 1
          |line 2
          |line 3""".stripMargin

val s = """line 1
line 2
line 3"""

(define s "This is my multi-line literal.
Line number two!
  This line starts with two spaces.")

s := 'Will this compile?
Oh yes, it will!'.

Dim s as String = "
This
Is
Multiline
Text!"