求教如何提高执行速度，谢谢！！！！

2003-03-10 08:17:25 77 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何提高hdfs的replication速度前言线上运维的集群进程会遇到datanode节点down掉的问题，默认超过10min没有反应，namenode认为此节点为deadnode，并开始执行replication，通过观察hdfsweb页面发现replication的速度很慢；还有一种场景，我们对重要数据做升副本操作时，例如：./bin/hadoop fs -setrep -R -w 3 /home/main/,发现rep... 阅读详情

在文本中(1.txt)找到RQ,ZF,GS，写入2.DAT里，求教加一个判断，如果bb.rRQ = CDate(Trim(RQ))bb.zZF = ZF和，就不加入，如不等于，就加入，另求教如何提高执行速度，谢谢！！！！
Dim MC As String * 6
Dim RQ As String * 12
Dim ZF As String * 40
Dim GS As String * 10
Dim bL As String * 10
Dim filetxt As String, x As Variant, i As Integer, ii As Integer, Lines As Integer, FileName As String

Dim bb As Record2
Dim aa As Record1

On Error Resume Next

Open App.Path & "\1.txt" For Binary As #2
Get #2, , filetxt
x = Split(filetxt, vbCrLf)
Lines = UBound(x)
For i = 0 To Lines - 1
If InStr(x(i), "22") > 0 Then
RQ = Mid(x(i + 1), InStr(x(i + 1), ":") + 21, 10)
For hs = i + 2 To i + 6
ZF = Mid(x(hs), 1, 2)
GS = Mid(x(hs), 3, 6)

Open App.Path & "\2.dat" For Binary Access Read Write As #3
Seek #3, LOF(3) + 1
bb.rRQ = CDate(Trim(RQ))
bb.zZF = ZF
bb.gGS = GS
bb.bbL = ""
Put #3, , bb
Close #3
Next
Exit For
End If
Next i
Close #2

...全文