vb.net bir String değiştirin nasıl

Question

İşte benim kod:

Dim lQuotes As Char = Convert.ToChar(&H201C) ' “ 
    Dim rQuotes As Char = Convert.ToChar(&H201D) ' ” 

    Dim BP01 As String = 
     String.Format("<li>{0}<em>{2}</em>{1} ― <strong>{3}</strong></li>", lQuotes, rQuotes, BP1.Text, BPGB1.Text) 

Dim objWriter As New System.IO.StreamWriter("d:Temp 1.txt", True) 


objWriter.WriteLine(BP01) 

objWriter.Close() 

BP1 metin kutusu boşsa, o "Veri boş" Biz ile değiştirin, girişine herhangi bir verinin bulunmaması durumunda gelir kelime veya başka böyle bir şey ... "ile"

Örneğin:

bu hat, böylece başka bir şey BP01 Değiştir "Veri boş" görüntülenir

Not: Ben> ... gibi bu html kodlarını görüntülemek için < < li istemiyoruz em> vb

Answer 1

girişinizi değerlerini kontrol edin ve hareket ederler buna göre yerine size isterseniz

Dim BP01 As String 

If (string.IsNullOrWhiteSpace(BP1.Text) Or string.IsNullOrWhiteSpace(BPGB1.Text)) Then 
    BP01 = "Data Is Empty" 
Else 
    BP01 = String.Format("<li>{0}<em>{2}</em>{1} ― <strong>{3}</strong></li>", lQuotes, rQuotes, BP1.Text, BPGB1.Text) 
End If 

değiştirmeyi Sadece If koşullarını geçersiz kılmak (sadece Not) çıkışını atlayabilirsiniz, sadece geçerli giriş üzerinde hareket etmek için (BP1 ve BPGB1 boş bırakılmamalıdır).

If (Not string.IsNullOrWhiteSpace(BP1.Text) And Not string.IsNullOrWhiteSpace(BPGB1.Text)) Then 
    BP01 = String.Format("<li>{0}<em>{2}</em>{1} ― <strong>{3}</strong></li>", lQuotes, rQuotes, BP1.Text, BPGB1.Text) 
    objWriter.WriteLine(BP01) 
End If