Anonymous user
User talk:MichaelWodrich: Difference between revisions
→{{header|XProfan}}
No edit summary |
|||
Line 1:
=={{header|XProfan}}==
Delimiter in string "#" or ";" will be ignored.
<lang xprofan>
Proc Min
Declare int PC, i, float e, t
Line 28 ⟶ 24:
Declare int posi[]
Declare int i, min_p, p
min_p = $7FFFFFFF
For i, 1, Len(delim)
Line 36 ⟶ 31:
posi[ 0 ] = InStr( chr$(34), s )
If (posi[0] > 0) and (posi[0] < min_p)
If Odd( Len( Left$(s,min_p) ) - Len( translate$( Left$(s,min_p), Chr$(34), "" )) ) // ...and counting of delimiter is odd, then the sign is part of a string▼
// ...and counting of delimiter is odd, then the sign is part of a string
▲ If Odd( Len( Left$(s,min_p) ) - Len( translate$( Left$(s,min_p), Chr$(34), "" )) )
p = posi[ 0 ] + 1
min_p = $7FFFFFFF
Line 54 ⟶ 50:
posi[ 0 ] = InStr( chr$(34), s, p )
If (posi[0] > 0) and (posi[0] < min_p)
If Odd( Len( Left$(s,min_p) ) - Len( translate$( Left$(s,min_p), Chr$(34), "" )) ) // ...and counting of delimiter is odd, then the sign is part of a string▼
// ...and counting of delimiter is odd, then the sign is part of a string
▲ If Odd( Len( Left$(s,min_p) ) - Len( translate$( Left$(s,min_p), Chr$(34), "" )) )
p = posi[ 0 ] + 1
min_p = $7FFFFFFF
Line 66 ⟶ 64:
EndIf
EndIf
Return Trim$( Left$( s, min_p - 1 ) )
EndProc
| |||