TwinCAT Dynamic String Kit

A library that provides tools for working with dynamic strings in TwinCAT. It includes a comprehensive string builder with string enumeration and a read-only string builder adapter. Additionally, there are several C-style string functions, such as isdigit(...), strstr(...), strlcpy(...), isspace(...), and more. There are also functions for converting ANY to STRING and STRING to ANY.

Examples

Working with the string builder.

Declarations:

VAR
    bStart          : BOOL;
    nLn1, nLn2      : T_Size;
    sValue1, sValue2    : STRING(255);
    pString         : POINTER TO STRING;
    fbStringBuilder1,
    fbStringBuilder2    : FB_StringBuilder;
END_VAR

Implementation:

IF bStart THEN
    bStart := FALSE;
    fbStringBuilder2
        .Append(' I hate cats.')
        .GetBuffer(pString);

    fbStringBuilder1
        .Clear()
        .Append(' I love cats.')
        .Append(' I love dogs.')
        .AppendBuffer(pString)
        .BTrim()
        .GetLength(Length => nLn1)
        .Replace('cats','dogs',TRUE)
        .Insert(nLn1, ' Anaconda! ')
        .Split(nLn1,100, fbStringBuilder2.Append(' Tigers are cats.'))
        .GetLength(Length => nLn1);

    sValue1 := fbStringBuilder1.ToUppercase().GetString();
    sValue2 := fbStringBuilder2
        .ToLowercase()
        .BTrim()
        .GetString();

    nLn2 := Tc2_Standard.LEN(sValue1);
    __DELETE(pString);
    END_IF

Output:

Working with the read-only adapter.

Declarations:

VAR
    bStart          : BOOL;
    sValue          : STRING(255);
    nPos            : T_Size;
    tTime           : TIME :=  TIME();
    tTime2          : TIME;
    fbStringBuilder     : FB_StringBuilder;
    fbReadOnlySB        : FB_ReadOnlyStringBuilderAdapter;
    ipReadOnlySB        : I_ReadOnlyStringBuilderAdapter;
END_VAR

Implementation:

fbReadOnlySB(ipStringBuilder := fbStringBuilder);
ipReadOnlySB := fbReadOnlySB;

IF bStart THEN
    bStart := FALSE;
    fbStringBuilder
        .Clear()
        .Append('   I love cats.')
        .Append('The time is: ').AppendAny(tTime).Append('.')
        .Append('   ')
        .BTrim();
    END_IF

sValue := ipReadOnlySB
    .Search('T#', 0, Position => nPos)
    .CopySubstringTo(nPos, tc2_Standard.LEN(TO_STRING(tTime)), tTime2)
    .GetString();

Output:

Working with the enumerator.

Declarations:

VAR
    bStart          : BOOL;
    sValue          : STRING(255);
    dtTime          : DT :=  DT#2023-5-8-12:55:23;
    fbStringBuilder1,
    fbStringBuilder2    : FB_StringBuilder;
    ipEnumerator        : I_Enumerator;
END_VAR

Implementation:

IF bStart THEN
    bStart := FALSE;

    fbStringBuilder1
        .Clear()
        .Append('   I love cats.')
        .Append('The time is: ').AppendAny(dtTime).Append('.')
        .BTrim();

    ipEnumerator := fbStringBuilder1.GetEnumerator();
    WHILE ipEnumerator.Next() DO
        fbStringBuilder2.Append(ipEnumerator.Current);
        END_WHILE

    sValue := fbStringBuilder2.GetString();
    END_IF

Output:

⚠ Important ⚠

This project is still in development. There's a lot of work and testing ahead. Changes to functionality may occur in the future.