替代使用InStr

Question

如何使用不同的功能“InStr” 这是我正在使用的代码并且工作正常但是离开InStr是我的目标

i = InStr(1, Hostname, Environment.Newline)

Answer 1

String.Indexof()有多次重载：

Dim jstr = "How much wood could a woodchuck chuck if a woodchuck..."

' Find a character from a starting point
ndx = jstr.IndexOf("w"c)             ' == 2 (first w)
'  or within a range:
ndx = jstr.IndexOf("o"c, 12)         ' == 15 first o past 12 (cOuld)  

'Find a string
ndx = jstr.IndexOf("wood")           ' == 9
' ...from a starting point
ndx = jstr.IndexOf("wood", 10)       ' == 22 (WOODchuck)
' ...or in part of the string
ndx = jstr.IndexOf("chuck", 9, 15)   ' -1 (none in that range)

' using a specified comparison method:
ndx = jstr.IndexOf("WOOD", StringComparison.InvariantCultureIgnoreCase)  ' 9
ndx = jstr.IndexOf("WOOD", nFirst, StringComparison) 
ndx = jstr.IndexOf("WOOD", nFirst, nLast, StringComparison)

还有一个String,LastIndexOf()方法来获取字符串中某些内容的最后一次出现，同时还有各种重载。

在您附近的VS中的MSDN或对象浏览器（VIEW菜单|对象浏览器）中可用。

i = Hostname.Indexof(Environment.Newline, 1)

Answer 2

如果您需要等效的C＃代码，可以使用Strings程序集中的Microsoft.VisualBasic类，因此代码可以如下：

using Microsoft.VisualBasic;
. . . 
i = Strings.InStr(1, Hostname, Environment.NewLine);

另一种方法是使用适当的String.Indexof函数。

链接：

• http://msdn.microsoft.com/en-us/library/8460tsh1.aspx
• http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.strings.aspx
• http://msdn.microsoft.com/en-us/library/k8b1470s.aspx