如何在多行数据中，清除不需要的行

Question

ip.txt
.............
59.73.192.0     59.73.223.255   吉林省长春市 东北师范大学
59.73.224.0     59.73.255.255   吉林省 教育网
59.74.0.0       59.74.31.255    陕西省西安市 西安建筑科技大学
59.74.32.0      59.74.32.255    陕西省西安市 西安欧亚学院比如我想找出所有行中有西安市数据其它行删除
 
59.74.0.0       59.74.31.255    陕西省西安市 西安建筑科技大学
59.74.32.0      59.74.32.255    陕西省西安市 西安欧亚学院

Answer 1

InputStreamReader isr = 
     new InputStreamReader(New FileInputStream(路径/ip.txt ));
BufferedReader br = new BufferedReader(isr);
FileOutputStreamReader fos = new FileOutputStream(路径/ip.txt);
StringBuffer s = new StringBuffer();
while(br.read()==-1){
   String temp = br.readLine();
   if(!temp.indexOf("西安")>=0){
      s.append(temp);
   }
}
fos.write(s.toString());
fos.close();
isr.close();

Answer 2

按行读取文件
ArrayList<String> list= new ArrayList<String>();
FileReader fr = null;
BufferedReader br = null;
String temp = "";
try {
fr = new FileReader("ip.txt ");
br = new BufferedReader(fr);
temp = br.readLine();
while (temp != null&&temp.indexOf("西安市")!=-1) {
list.add(temp);
temp = br.readLine();// 继续下一行
} }
取list中值就可以了

Answer 3

<script language=vbscript>
Function bytes2BSTR(vIn)
    strReturn = ""
    For i = 1 To LenB(vIn)
        ThisCharCode = AscB(MidB(vIn,i,1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            NextCharCode = AscB(MidB(vIn,i+1,1))
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
            i = i + 1
        End If
    Next
    bytes2BSTR = strReturn
End Function
</script>
<script language="JavaScript">
var xmlUrl = new ActiveXObject('Microsoft.XMLHTTP');
xmlUrl.Open('GET','ip.txt');
xmlUrl.Send();
var content = bytes2BSTR(xmlUrl.ResponseBody);
var ret = "";
var arr = content.split("\r\n");
for(var j=0;j<arr.length;j++){
if(arr[j].indexOf("西安市")>=0){
if(ret!=""){
ret += "\r\n";
}
ret+=arr[j];
}
}
alert(ret);</script>

Answer 4

先把ip.txt里的面全部内容读取到字符串变量oIpText里面，然后
reIp=/^((?!西安).)*$/gm;
oIpText.replace(reIp,"");
然后再把oIpText写到另一个文件里就OK了