Here is my workaround :
In[20]:= Test = {1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 1, 0, 0};
(* The desired output is the number of zero's between the ones so
{4,2,5,7} *)
In[15]:= Test = Flatten[Position[Test, 1]]
Out[15]= {1, 6, 9, 15, 23}
In[17]:= Result =
Table[Test[[k + 1]] - Test[[k]] - 1, {k, 1, Length[Test] - 1}]
Out[17]= {4, 2, 5, 7}
