Question

vb去掉指定字符间空格

我的txt文件是html代码有很多<>标价
如：<td>ddfdf</td> </tr>
我现在想把所有在“>”“<”之间的空格全去掉，怎么弄！
显然大家没有懂我的意思 我要去掉 “> <”之间的空格 其他空格不去！ 这样吧，我附上代码：
<input type="hidden" name="Type" value="BUY" /> <input size="20" name="SearchText" value="Search Product" onfocus="this.value=''" class="query-input" /> <input type="submit" class="imageButtonA" value="" /> <span class="barRight"> </span> </div> </form>
我要把所有<>这里是空格不知道多少个<>这样的去掉，其他不能去！怎么办！

Answer 1

非编程的方法：
把上面的html代码复制到记事本中，用查找替换，将“> ”(有一个空格)，替换为“>”(没有空格)，多点几次全部替换，直到没有变化了为止。

Answer 2

.net

Public Sub DeleteSpace(ByRef str As String)
Dim s As System.Text.StringBuilder = New System.Text.StringBuilder(str)
Dim i As Integer
Dim isin As Boolean = True
For i = 0 To s.Length - 1
If i >= s.Length Then Exit For
If s.ToString.ToCharArray(i, 1) = ">" Then isin = False
'If s.ToString.ToCharArray(i, 1) = "<" Then isin = False '呵呵这写错了，应为True，要不当前在《》里也会认为在><间
If s.ToString.ToCharArray(i, 1) = "<" Then isin = True

If Not isin And s.ToString.ToCharArray(i, 1) = " " Then
s.Remove(i, 1)
i = i - 1
End If
Next
str = s.ToString
End Sub

用的时候 call DeleteSpace（你的字符串变量）
就行了
我的输出是
<input type="hidden" name="Type" value="BUY" /><input size="20" name="SearchText" value="Search Product" onfocus="this.value=''" class="query-input" /><input type="submit" class="imageButtonA" value="" /><span class="barRight"></span></div></form>
您看对么？、
还有这是.Net的代码，要VB6的再说

Answer 3

正确答案在这里！～你是要截取字符串间的空串吧？
先用Mid$()截取字符串然后用Trim()去掉空格最后用&连接即可。

望采纳.

Answer 4

Replace("123123","12","",1,-1) 1为位置 -1表示替换"123123"中所有"12"字符

Answer 5

repalce(str1,"> <","><")