Sub AppStart (Args() As String)
Dim bb As B4XBytesBuilder
bb.Initialize
bb.Append(File.ReadBytes(File.DirAssets, "ispis.txt"))
SingleReplace(bb, "xxxx".GetBytes("ascii"), "55555".GetBytes("ascii"))
SingleReplace(bb, "yyyy".GetBytes("ascii"), ("" & DateTime.Now).GetBytes("ascii"))
File.WriteBytes(File.DirApp, "1.dat", bb.ToArray)
End Sub
Private Sub SingleReplace(bb As B4XBytesBuilder, SearchFor() As Byte, ReplaceWith() As Byte)
Dim i As Int = bb.IndexOf(SearchFor)
If i > -1 Then
bb.Remove(i, i + SearchFor.Length)
bb.Insert(i, ReplaceWith)
End If
End Sub