请给我一个用易语言程序写的取文本特定字符有多少个数的实例代码

以下是用易语言编写的取文本特定字符有多少个数的实例代码：

// 定义一个函数，用于计算特定字符在文本中出现的次数
function CountChar( str: string, ch: char ): integer;
var
    i, count: integer;
begin
    count := 0;
    for i := 1 to Length( str ) do
        if str[ i ] = ch then
            Inc( count );
    Result := count;
end;

// 调用函数
var
    text: string;
    ch: char;
    count: integer;
begin
    text := 'Hello, world!';
    ch := 'l';
    count := CountChar( text, ch );
    Print( '字符 "', ch, '" 在文本中出现了 ', count, ' 次。' );
end.

该程序定义了一个名为 `CountChar` 的函数，该函数接受两个参数：一个字符串 `str` 和一个字符 `ch`，并返回字符 `ch` 在字符串 `str` 中出现的次数。

在主程序中，程序定义了一个字符串 `text` 和一个字符 `ch`，并将它们传递给 `CountChar` 函数。最后，程序打印出字符 `ch` 在字符串 `text` 中出现的次数。