Teknik mengambil string dalam string

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