ForNext

072. 文字列の長さを調べる

VBScript

JScript

Perl

sub char_count
{
    ($_) = @_;

    # 全角文字数を数え、全角文字を消去する
    $lz = s/[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]//g;
    
    # 半角文字数を数える
    $lh = length($_);

    # 全角・半角の文字数を足して返す
    return $lz + $lh;
}

$n = &char_count("１２３");
print "文字数('１２３') = $n \n";

$n = length("１２３");
print "バイト('１２３') = $n \n";

L:\>perl lesson_09_072.pl
文字数('１２３') = 3
バイト('１２３') = 6

PHP

<?php
function char_count($value)
{
    return mb_strlen($value, "SJIS");
}

$n = char_count("１２３");
print "文字数('１２３') = $n \n";

$n = strlen("１２３");
print "バイト('１２３') = $n \n";
?>

L:\>php lesson_09_072.php
文字数('１２３') = 3
バイト('１２３') = 6

Python

# coding: Shift_JIS

n = len("１２３")
print "バイト('１２３') = %d" % n

n = len(u"１２３")
print "文字数('１２３') = %d" % n

N:\>python lesson_09_072.py
バイト('１２３') = 6
文字数('１２３') = 3

Ruby

def char_count(arg)
    return arg.split(//s).length
end

n = char_count("１２３")
print "文字数('１２３') = #{n} \n"

n = "１２３".length
print "バイト('１２３') = #{n} \n"

L:\>ruby  l:\lesson_09_072.rb
文字数('１２３') = 3
バイト('１２３') = 6

PowerShell

Scala

F#

C

#include <stdio.h>
#include <string.h>

unsigned str_length(const char str[])
{
    unsigned len = 0;

    while (str[len])
        len++;

    return len;
}

int main(int argc, char* argv[])
{
    char str[100] = "ABC";

    printf("sizeof(\"%s\") = %u\n", str, (unsigned)sizeof(str));
    printf("strlen(\"%s\") = %u\n", str, strlen(str));
    printf("str_length(\"%s\") = %u\n", str, str_length(str));

    return 0;
}

R:\>lesson072\Project1.exe
sizeof("ABC") = 100
strlen("ABC") = 3
str_length("ABC") = 3

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

procedure main();
var
    str: String;
begin
    str := 'ABC';
    Writeln(Format('length(''%s'') = %d', [str, Length(str)]));
end;

begin
    main;
end.

S:\>lesson072\Project1.exe
length('ABC') = 3

Ada

PL/SQL

T-SQL