有些朋友經常問我實數與字符串之間怎么轉化，尤其是在EthernetKRL的Binarystream的使用中。那么這邊文章以代碼的形式來展示。

一.實數轉化為字符串：

复制;***************************************************复制;* Customer     :                                  *复制;* Roboter      :                                  *复制;* Version      : Vxxxxxx                          *复制;* Roboter Nr.  : xxxxxx                           *复制;* Controller Nr: xxxxxx                           *复制;*                                                 *复制;* Autor        : Andrew Wang                      *复制;* Company      :                                  *复制;* Department   :                                  *复制;* Telephone    : 86 156-8082-2827                 *复制;*                                                 *复制;* Version      : 1.0                              *复制;* Created      : 12.12.2018                       *复制;* Modified     :                                  *复制;* Project      :                                  *复制;*                                                 *复制;*ProgramName:Real_2_String*复制;* Convert a REAL variant to a string variable;    *复制;************************************************** 复制DEFFCT CHAR[32] Real_2_String(rVar:IN )复制DECL CHAR Ret[32]复制DECL INT Offset,I复制DECL STATE_T state复制DECL REAL rVar复制Offset=0复制FOR I=1 TO 32复制  Ret[I]=0复制ENDFOR复制SWRITE(Ret[],State,offset,"%f",rVar)复制Return (ret[])复制ENDFCT

測試程序：

复制DEF CHeck( )复制DECL CHAR test[32]复制DECL REAL x复制DECL INT I 复制FOR I=1 TO 32复制 Test[i]=0复制ENDFOR复制X=-3.14复制Test[]=Real_2_string(x)复制HALT复制END

測試結果：

如果將程序修改下，就可以保留小數點后幾位的格式：

复制;***************************************************复制;* Customer     :                                  *复制;* Roboter      :                                  *复制;* Version      : Vxxxxxx                          *复制;* Roboter Nr.  : xxxxxx                           *复制;* Controller Nr: xxxxxx                           *复制;*                                                 *复制;* Autor        : Andrew Wang                      *复制;* Company      :                                  *复制;* Department   :                                  *复制;* Telephone    : 86 156-8082-2827                 *复制;*                                                 *复制;* Version      : 1.0                              *复制;* Created      : 12.12.2018                       *复制;* Modified     :                                  *复制;* Project      :                                  *复制;*                                                 *复制;* Program Name : Real_2_String                   *复制;* Convert a REAL variant to a string variable;    *复制;************************************************** 复制DEFFCT CHAR[32] Real_2_String(rVar:IN )复制DECL CHAR Ret[32]复制DECL INT Offset,I复制DECL STATE_T state复制DECL REAL rVar复制Offset=0复制FOR I=1 TO 32复制  Ret[I]=0复制ENDFOR复制SWRITE(Ret[],State,offset,"%.3f",rVar)复制Return (ret[])复制ENDFCT

測試結果：

二.字符串轉實數：

對于字符串轉實數有兩種方式，一種是系統函數，一種用戶自定義的函數；

1. 系統自定義函數：

   复制;**************************************************复制;* System Built-in function-StrToReal             *复制;* Return Vaule=StrToReal(CHAR:IN,REAL:OUT) ;     *复制;* Convert a string in a Real variable   ;        *复制;* Range value of Argument IN :Char Array ;       * 复制;* Range value of Argument OUT :REAL ;            * 复制;* Range value of Result is Bool as Result;       *复制;**************************************************

   測試程序：

   測試結果：

   

2. 用戶定義函數：

   复制;***************************************************复制;* Customer     :                                  *复制;* Roboter      :                                  *复制;* Version      : Vxxxxxx                          *复制;* Roboter Nr.  : xxxxxx                           *复制;* Controller Nr: xxxxxx                           *复制;*                                                 *复制;* Autor        : Andrew Wang                      *复制;* Company      :                                  *复制;* Department   :                                  *复制;* Telephone    : 86 156-8082-2827                 *复制;*                                                 *复制;* Version      : 1.0                              *复制;* Created      : 12.12.2018                       *复制;* Modified     :                                  *复制;* Project      :                                  *复制;*                                                 *复制;* Program Name : String_To_Real                   *复制;* Convert a string variant to a real  variable;   *复制;************************************************** 复制GLOBAL DEFFCT REAL String_To_Real(StringIn[]:IN)复制DECL STATE_T state 复制DECL CHAR StringIn[]复制DECL REAL RealOut复制DECL INT zOffset复制zOffset=0复制SREAD(StringIN[],State,zOffset,"%f",RealOut)复制RETURN(RealOut)复制ENDFCT

   測試程序：

   

   測試結果：