Ini sangat buruk tapi sangat flexibel buat saya terutama dalam manipulasi string pada serial transmission
Dim test, test2 As String
test = "Hellojkjk jk k bla INF1: 099920 Wassup ih deh"
If test.Contains("INF1") Then test2 = Trim(Mid(test, test.IndexOf("INF1") + 6, 10))
TextBox1.Text = TextBox1.Text + test2 + Chr(13) + Chr(10)
6 adalah offset depan dari string
10 adalah panjang/jumlah string yang mau di ambil
yang di gunakan untuk menemukan offset string test.IndexOf bukannya test.IndexOfAny
saya pernah juga salah, menggunakan IndexOfAny ... jadinya kaco dehh..
Trim membersihkan space
Saya yakin ada teknik lain yang lebih bagus.
0 komentar:
Posting Komentar