逐行比较字符串

Question

这里的任何人都可以帮助我处理这个

输入文件

  Type Reference      
   WIN  00001  
   WIN  00001   
   WIN  00001  
   MAC  00001  
   MAC  00001  

基本上我需要比较不等于

首选输出的前 3 个字符是否是

类型参考代码

   WIN  00001  
   WIN  00001   
   WIN  00001  

下面的

Dim fh As StreamReader
Dim os as string
fh = new StreamReader("haggis.txt")
Dim s As String = fh.ReadLine()
While not s Is Nothing
   os = s.Substring(0,3) 
   if os <> os then
      Console.WriteLine("Write here")
   else

   end if    

   s = fh.ReadLine
End While
fh.Close()
End Sub

Answer 1

声明一个 previousOS 变量，并将其与该变量进行比较。

例如

Dim fh As StreamReader
Dim previousOS as string REM to see what previous os was
Dim os as string
fh = new StreamReader("haggis.txt")
Dim s As String = fh.ReadLine()
While not s Is Nothing
  previousOS = os 
  REM save the old os in this variable before assigning it to a new variable
  os = s.Substring(0,3) 
REM check if the new os is equal to the previousOS string (null check if it the first time read
if previousOS <> Nothing AndAlso previousOS <> os then
   Console.WriteLine("Write here")
else

end if    

s = fh.ReadLine
End While
fh.Close()
End Sub

Answer 2

@Yet Another Geek，你已经很接近了，如果你不想只是关闭程序，你可以关闭流，然后在 else 语句中放置 Exit Sub 调用。这将带您返回到所谓的子程序并继续处理。