!!求救！vb转换成。net 转换工具转不了

[cwb210]

Private Function GetNextWord(ByVal strText As String, ByVal istart As Long, ByRef strWord As String) As Long
Dim i As Long
Dim strTemp As String
Dim bBegin As Boolean
bBegin = False

If istart = Len(strText) Then Exit Function

strTemp = ""
For i = istart To Len(strText)
If bBegin Then
If Mid(strText, i, 1) <> " " Then
strTemp = strTemp & Mid(strText, i, 1)
Else
Exit For
End If
Else
If Mid(strText, i, 1) <> " " Then
strTemp = Mid(strText, i, 1)
bBegin = True
End If
End If
Next
strWord = strTemp
GetNextWord = i
End Function

[jiang_jiajia10]

private long GetNextWord( strText As string,  istart As long, ref strWord As string) {
     i As long ;
     strTemp As string ;
     bBegin As bool ;
    bBegin = False ;
    
 if ( istart = Len(strText) ) { Exit {
    
    strTemp = "" ;
    for ( i = istart ; GAIS <= Len(strText) 
        if ( bBegin ) { 
            if ( Mid(strText, i, 1) != " " ) { 
                strTemp = strTemp & Mid(strText, i, 1) ;
            } else { 
                Exit for ( ;
            } 
        } else { 
            if ( Mid(strText, i, 1) != " " ) { 
                strTemp = Mid(strText, i, 1) ;
                bBegin = True ;
            } 
        } 
    } // 
    strWord = strTemp ;
    GetNextWord = i ;
}

我用工具转的不知道对不对，没细看

[cwb210]

不管怎么样先谢谢了 vb真的看不懂 选择这样还能看点懂 呵呵

[cwb210]

private long GetNextWord(string strText, long istart, ref string strWord)
{
long i = 0;
string strTemp = null;
bool bBegin = false;

if (istart == Strings.Len(strText)) return;


strTemp = "";
for (i = istart; i <= Strings.Len(strText); i++) {
if (bBegin)
{
if (Strings.Mid(strText, i, 1) != " ")
{
strTemp = strTemp + Strings.Mid(strText, i, 1);
}
else
{
break;
}
}
else
{
if (Strings.Mid(strText, i, 1) != " ")
{
strTemp = Strings.Mid(strText, i, 1);
bBegin = true;
}
}
}
strWord = strTemp;
return i;
}
这是找工具转换的，不过有点问题，这Strings是？
大家见谅 我是学了半年的大白菜，

[hongqi162]

Strings 模块包含用于执行字符串操作的过程。


Strings 类型公开了以下成员。

方法
名称 说明
Asc 已重载。 返回一个 Integer 值，该值表示与某个字符相对应的字符码。
AscW 已重载。 返回一个 Integer 值，该值表示与某个字符相对应的字符码。
Chr 返回与指定字符码相关联的字符。
ChrW 返回与指定字符码相关联的字符。
Equals 确定指定的 Object 是否等于当前的 Object。 （继承自 Object。）
Filter 已重载。 返回一个从零开始的数组，该数组包含一个基于指定筛选条件的 String 数组的子集。
Finalize 允许 Object 在“垃圾回收”回收 Object 之前尝试释放资源并执行其他清理操作。 （继承自 Object。）
Format 返回已按照格式 String 表达式中包含的指令进行了格式化的字符串。
FormatCurrency 返回一个格式化为货币值的表达式，货币值使用的是系统控制面板中定义的货币符号。
FormatDateTime 返回表示日期/时间值的字符串表达式。
FormatNumber 返回格式化为数字的表达式。
FormatPercent 返回格式化为带有尾随 % 字符的百分比（即，乘以 100）的表达式。
GetChar 返回 Char 值，该值表示提供的字符串中指定索引处的字符。
GetHashCode 用作特定类型的哈希函数。 （继承自 Object。）
GetType 获取当前实例的 Type。 （继承自 Object。）
InStr 已重载。 返回一个整数，该整数指定一个字符串中另一个字符串的第一个匹配项的起始位置。
InStrRev 返回一个字符串中另一个字符串的第一个匹配项的位置，从字符串的右侧算起。
Join 已重载。 返回一个字符串，该字符串是通过将数组内包含的若干子字符串联接在一起形成的。
LCase 已重载。 返回已转换为小写的字符串或字符。
Left 返回一个字符串，该字符串包含从某字符串左侧算起的指定数量的字符。
Len 已重载。 返回一个整数，该整数表示字符串中的字符数或存储变量所需的名义字节数。
LSet 返回一个左对齐字符串，该字符串包含调整为指定长度的指定的字符串。
LTrim 返回一个字符串，它包含一个没有前导空格 (LTrim)、没有尾随空格 (RTrim) 或既没有前导空格也没有尾随空格 (Trim) 的指定字符串的副本。
MemberwiseClone 创建当前 Object 的浅表副本。 （继承自 Object。）
Mid 已重载。 返回一个字符串，该字符串包含某字符串中指定数量的字符。
Replace 返回一个字符串，在该字符串中，指定的子字符串已被另一个子字符串替换了指定的次数。
Right 返回一个字符串，该字符串包含从某字符串右侧算起的指定数量的字符。
RSet 返回一个右对齐字符串，该字符串包含调整为指定长度的指定的字符串。
RTrim 返回一个字符串，它包含一个没有前导空格 (LTrim)、没有尾随空格 (RTrim) 或既没有前导空格也没有尾随空格 (Trim) 的指定字符串的副本。
Space 返回由指定数量的空格组成的字符串。
Split 返回从 0 开始且包含指定数量的子字符串的一维数组。
StrComp 根据字符串比较的结果，返回 -1、0 或 1。
StrConv 返回已转换为指定形式的字符串。
StrDup 已重载。 返回由重复指定次数的指定字符组成的字符串或对象。
StrReverse 返回一个字符串，在该字符串中指定字符串的字符顺序被颠倒。
ToString 返回表示当前 Object 的 String。 （继承自 Object。）
Trim 返回一个字符串，它包含一个没有前导空格 (LTrim)、没有尾随空格 (RTrim) 或既没有前导空格也没有尾随空格 (Trim) 的指定字符串的副本。
UCase 已重载。 返回一个字符串或字符，其中包含已转换为大写的指定字符串。

[飞天鹰]

private long GetNextWord(strText As string,istart As long,ref strWord As string) 
{
  int i=0;
  string strTemp="";
  bool bBegin=false;    
  if (istart=strText.length) return； 
  else
    {
       for (i=istart;GAIS<=strText.length;i++) 
        {
            if(bBegin) 
               { 
                if(Mid(strText,i,1)!="") 
                  { 
                    strTemp = strTemp+Mid(strText,i,1);
                  } 
                else return;
               } 
            else 
               { 
                 if(Mid(strText,i,1)!="") 
                   { 
                     strTemp = Mid(strText,i,1) ;
                     bBegin = True ;
                   } 
               } 
         }
         strWord=strTemp;
         GetNextWord=i;
     }
}

[koukoujiayi]

Strings是专用于VisualBasic的,
要在C#中用,
1.首先要引用Microsoft.VisualBasic(在添加引用中加入)
2.在程序中还要using Microsoft.VisualBasic;
这样才可以使用Strings

我做了一下,程序派什么用处不知道,但以下程序在C#中编译无误!!(修改了几个地方)

using Microsoft.VisualBasic;

private long GetNextWord(string strText, long istart, ref string strWord)
{
int i = 0;
string strTemp = null;
bool bBegin = false;

if (istart == Strings.Len(strText)) return istart;

strTemp = "";
for (i = (int)istart; i <= Strings.Len(strText); i++)
{
if (bBegin)
{
if (Strings.Mid(strText, i, 1) != " ")
{
strTemp = strTemp + Strings.Mid(strText, i, 1);
}
else
{
break;
}
}
else
{
if (Strings.Mid(strText, i, 1) != " ")
{
strTemp = Strings.Mid(strText, i, 1);
bBegin = true;
}
}
}
strWord = strTemp;
return i;
}

红色的部分是修改的!!