не могу найти, аналог php implode в autoit помогите пожалуйста
A ArgoNaft Новичок Сообщения 129 Репутация 0 10 Окт 2013 #1 не могу найти, аналог php implode в autoit помогите пожалуйста
Garrett Модератор Локальный модератор Сообщения 3,999 Репутация 967 10 Окт 2013 #2 А чего её искать, напишите сами Код: Dim $aData[3] = ['Test', 'Autoit', 'implode function!'] ConsoleWrite(_Implode($aData) & @CRLF) Func _Implode($a_Data, $s_Glue = ' ') Local $s_Tmp = '' If Not IsArray($a_Data) Then Return SetError(1, 0, 0) Else For $i = 0 To UBound($a_Data) -1 $s_Tmp &= $a_Data[$i] & $s_Glue Next EndIf Return SetError(0, 0, StringTrimRight($s_Tmp, 1)) EndFunc;==>_Implode
А чего её искать, напишите сами Код: Dim $aData[3] = ['Test', 'Autoit', 'implode function!'] ConsoleWrite(_Implode($aData) & @CRLF) Func _Implode($a_Data, $s_Glue = ' ') Local $s_Tmp = '' If Not IsArray($a_Data) Then Return SetError(1, 0, 0) Else For $i = 0 To UBound($a_Data) -1 $s_Tmp &= $a_Data[$i] & $s_Glue Next EndIf Return SetError(0, 0, StringTrimRight($s_Tmp, 1)) EndFunc;==>_Implode
Z Z_Lenar Продвинутый Сообщения 209 Репутация 52 11 Окт 2013 #3 Код: #include <Array.au3> Dim $arr[3] = ["1", "2", "3"] MsgBox(0, "", _ArrayToString($arr, ";"))