Easy language takes an integer, such as l:text = March 6, and I just need to take out 36.

Support library specification

. Subroutine number _ method 1, text type

Parameter original file, text type

. Local variable I, integer.

. Local variable bin, byte set

. Local variable temp, text type

. Local variable text, text type

Bin = to byte set (original file)

. Counting cycle head (take byte length (bin), i)

If true (bin [i] ≥ 48 and bin [i] ≤ 58)

Temp = character (bin [i])

Text = Text+Temperature

If it's over.

. Count cycle tail ()

Return (text)

. SubprogramNo. _ Method 2, Text Type

Parameter original text, text type

. Local variable I, integer.

. Local variable temp, text type

. Local variable text, text type

. Count loop head (take text length (original), I)

Temp = take the middle of the text (original, I, 1)

If true (temp = 0 or 1 or 2 or 3 or 4 or 5 or 6 or 7 or 8 or 9).

Text = Text+Temperature

If it's over.

. Count cycle tail ()

Return (text)

. Subroutine _ button 1_ was clicked.

Debugging output (take number _ Method 1 (edit box 1. Content))

Debugging output (take number _ Method 2 (edit box 1. Content))