高手能帮我给这两段代码加上注释么？

xlh0053 2010-06-23 08:59:11
从FTP上下载文件：
Public Sub DownloadFile(ByVal Str_RemoteFileName As String, ByVal Str_LocalFileName As String, ByVal Bool_Resume As Boolean)
Dim Data_St As Stream
Dim output As FileStream
Dim LobSocket As Socket
Dim offset, npos As Long
If (Not Logined()) Then
Logined()
End If
SetBinaryMode(True)
If (Str_LocalFileName.Equals("")) Then
Str_LocalFileName = Str_RemoteFileName
End If

If (Not (File.Exists(Str_LocalFileName))) Then
Data_St = File.Create(Str_LocalFileName)
Data_St.Close()
End If

output = New FileStream(Str_LocalFileName, FileMode.Open)
LobSocket = CreateDataSocket()
offset = 0

If (Bool_Resume) Then
offset = output.Length

If (offset > 0) Then
SendCommand("REST " & offset)
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Int_Reply <> 350) Then
offset = 0
End If
End If

If (offset > 0) Then
npos = output.Seek(offset, SeekOrigin.Begin)
End If
End If

SendCommand("RETR " & Str_RemoteFileName)
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))

If (Not (Int_Reply = 150 Or Int_Reply = 125)) Then
MsgBox(Str_Reply.Substring(4))
End If

Do While (True)
Array.Clear(Byte_Buffer, 0, Byte_Buffer.Length)
Int_Bytes = LobSocket.Receive(Byte_Buffer, Byte_Buffer.Length, 0)
output.Write(Byte_Buffer, 0, Int_Bytes)

If (Int_Bytes <= 0) Then
Exit Do
End If
Loop

output.Close()
If (LobSocket.Connected) Then
LobSocket.Close()
End If

Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Not (Int_Reply = 226 Or Int_Reply = 250)) Then
MsgBox(Str_Reply.Substring(4))
End If
End Sub

上传文件到FTP:
Public Sub UploadFile(ByVal Str_LocalFileName As String, ByVal Bool_Resume As Boolean)

Dim LobSocket As Socket
Dim offset As Long
Dim input As FileStream
Dim bFileNotFound As Boolean
If (Not Logined()) Then
Logined()
End If
LobSocket = CreateDataSocket()
offset = 0
If (Bool_Resume) Then
Try
SetBinaryMode(True)
offset = GetFileSize(Str_LocalFileName)
Catch ex As Exception
offset = 0
End Try
End If
If (offset > 0) Then
SendCommand("REST " & offset)
If (Int_Reply <> 350) Then
offset = 0
End If
End If
SendCommand("STOR " & Path.GetFileName(Str_LocalFileName))
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Not (Int_Reply = 125 Or Int_Reply = 150)) Then
MsgBox(Str_Reply.Substring(4))
End If
bFileNotFound = False
If (File.Exists(Str_LocalFileName)) Then
input = New FileStream(Str_LocalFileName, FileMode.Open)
If (offset <> 0) Then
input.Seek(offset, SeekOrigin.Begin)
End If
Int_Bytes = input.Read(Byte_Buffer, 0, Byte_Buffer.Length)
Do While (Int_Bytes > 0)
LobSocket.Send(Byte_Buffer, Int_Bytes, 0)
Int_Bytes = input.Read(Byte_Buffer, 0, Byte_Buffer.Length)
Loop
input.Close()
Else
bFileNotFound = True
End If
If (LobSocket.Connected) Then
LobSocket.Close()
End If
If (bFileNotFound) Then
MsgBox(Str_LocalFileName & "文件未找到，无法上传")
End If
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Not (Int_Reply = 226 Or Int_Reply = 250)) Then
MsgBox(Str_Reply.Substring(4))
End If

End Sub
...全文
196 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
w3vip 2010-08-14
  • 打赏
  • 举报
 回复
我来得分了
xlh0053 2010-08-14
  • 打赏
  • 举报
 回复
来个人得分吧
xlh0053 2010-08-13
  • 打赏
  • 举报
 回复
算了，我还是结贴吧
yanlongwuhui 2010-07-13
  • 打赏
  • 举报
 回复
[Quote=引用 13 楼 xlh0053 的回复:]
我要是看懂了还需要去加注释吗？你们真是太幽默了
[/Quote]
这么一段代码，总不可能每句都进行注释吧，会吓死人的。
应该把看不懂需要别人进行注释的位置标记下，这样大家才能针对性的进行注释
Ghost_Khz 2010-07-13
  • 打赏
  • 举报
 回复
又是一个体力活。。 。。。。。。悲剧。。 。大大的悲剧。
wuxing2006 2010-07-13
  • 打赏
  • 举报
 回复
FTP协议，你看看就懂了
然后对着协议拿telnet　手动看下就明了
xlh0053 2010-07-13
  • 打赏
  • 举报
 回复
xlh0053 2010-07-01
  • 打赏
  • 举报
 回复
xlh0053 2010-06-29
  • 打赏
  • 举报
 回复
我要是看懂了还需要去加注释吗？你们真是太幽默了
xlh0053 2010-06-28
  • 打赏
  • 举报
 回复
看样子要结贴了
snwvf6688 2010-06-28
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 lwd203 的回复:]
你把这些代码看懂了不就能加上注释了？
[/Quote]
ok
xlh0053 2010-06-26
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 lwd203 的回复:]
你把这些代码看懂了不就能加上注释了？
[/Quote]
我就是看不懂才叫大家帮我加注释啊
xlh0053 2010-06-25
  • 打赏
  • 举报
 回复
msdn不是网站吗？
qq234121906 2010-06-25
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 xlh0053 的回复:]
msdn不是网站吗？
[/Quote]


帮助文档，安装在本地的。
lwd203 2010-06-25
  • 打赏
  • 举报
 回复
你把这些代码看懂了不就能加上注释了？
周公 2010-06-24
  • 打赏
  • 举报
 回复
装个MSDN，不懂的函数看看MSDN就行了嘛。
周公 2010-06-24
  • 打赏
  • 举报
 回复
Public Sub DownloadFile(ByVal Str_RemoteFileName As String, ByVal Str_LocalFileName As String, ByVal Bool_Resume As Boolean)
Dim Data_St As Stream
Dim output As FileStream
Dim LobSocket As Socket
Dim offset, npos As Long
If (Not Logined()) Then'如果没有登录，则让用户登录
Logined()
End If
SetBinaryMode(True)'设置二进制模式用以传输文件数据
If (Str_LocalFileName.Equals("")) Then
Str_LocalFileName = Str_RemoteFileName
End If

If (Not (File.Exists(Str_LocalFileName))) Then'如果不存在文件则创建
Data_St = File.Create(Str_LocalFileName)
Data_St.Close()
End If

output = New FileStream(Str_LocalFileName, FileMode.Open)'创建文件流
LobSocket = CreateDataSocket()
offset = 0

If (Bool_Resume) Then
offset = output.Length

If (offset > 0) Then
SendCommand("REST " & offset)
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Int_Reply <> 350) Then
offset = 0
End If
End If

If (offset > 0) Then
npos = output.Seek(offset, SeekOrigin.Begin)
End If
End If

SendCommand("RETR " & Str_RemoteFileName)
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))

If (Not (Int_Reply = 150 Or Int_Reply = 125)) Then
MsgBox(Str_Reply.Substring(4))
End If

Do While (True)
Array.Clear(Byte_Buffer, 0, Byte_Buffer.Length)
Int_Bytes = LobSocket.Receive(Byte_Buffer, Byte_Buffer.Length, 0)
output.Write(Byte_Buffer, 0, Int_Bytes)

If (Int_Bytes <= 0) Then
Exit Do
End If
Loop

output.Close()
If (LobSocket.Connected) Then
LobSocket.Close()
End If

Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Not (Int_Reply = 226 Or Int_Reply = 250)) Then
MsgBox(Str_Reply.Substring(4))
End If
End Sub

上传文件到FTP:
Public Sub UploadFile(ByVal Str_LocalFileName As String, ByVal Bool_Resume As Boolean)

Dim LobSocket As Socket
Dim offset As Long
Dim input As FileStream
Dim bFileNotFound As Boolean
If (Not Logined()) Then
Logined()
End If
LobSocket = CreateDataSocket()
offset = 0
If (Bool_Resume) Then
Try
SetBinaryMode(True)
offset = GetFileSize(Str_LocalFileName)
Catch ex As Exception
offset = 0
End Try
End If
If (offset > 0) Then
SendCommand("REST " & offset)
If (Int_Reply <> 350) Then
offset = 0
End If
End If
SendCommand("STOR " & Path.GetFileName(Str_LocalFileName))
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Not (Int_Reply = 125 Or Int_Reply = 150)) Then
MsgBox(Str_Reply.Substring(4))
End If
bFileNotFound = False
If (File.Exists(Str_LocalFileName)) Then
input = New FileStream(Str_LocalFileName, FileMode.Open)
If (offset <> 0) Then
input.Seek(offset, SeekOrigin.Begin)
End If
Int_Bytes = input.Read(Byte_Buffer, 0, Byte_Buffer.Length)
Do While (Int_Bytes > 0)
LobSocket.Send(Byte_Buffer, Int_Bytes, 0)
Int_Bytes = input.Read(Byte_Buffer, 0, Byte_Buffer.Length)
Loop
input.Close()
Else
bFileNotFound = True
End If
If (LobSocket.Connected) Then
LobSocket.Close()
End If
If (bFileNotFound) Then
MsgBox(Str_LocalFileName & "文件未找到，无法上传")
End If
Str_Reply = ServerReply(True)
Int_Reply = Int32.Parse(Str_Reply.Substring(0, 3))
If (Not (Int_Reply = 226 Or Int_Reply = 250)) Then
MsgBox(Str_Reply.Substring(4))
End If

End Sub
xlh0053 2010-06-24
  • 打赏
  • 举报
 回复
来人帮忙啊
xlh0053 2010-06-23
  • 打赏
  • 举报
 回复
我晕，F10调试能自动添加注释啊？
我知道结果，我想知道这个过程的意思啊
Justin-Liu 2010-06-23
  • 打赏
  • 举报
 回复
F10调试一下
码农的自我修养——对代码注释的理解（转）
如何写好代码注释是一个老话题，可以说一千个程序员就有一千种不同的理解。 下面是从我自己工作中所看到的，所听到的，结合自己编码的体会谈一下自己的想法。 对代码注释的态度大致有三种误区： 注释很重要，每一行代码都要写注释。 注释可有可无，为了应付公司的编程规范，QA 的审查，开始拷贝一些函数头注释，拷过去什么都不改，连原作者名都不改，只为满足代码注释率的要求 无需注释，代码即注释。 第一种 新员工热情很高，也很有责任心，导师或者项目经理说要把注释写清楚啊。于是乎我们就屁颠屁颠的每个变量，每个分支，每行代码都加上
码农的自我修养-对代码注释的理解
如何写好代码注释是一个老话题，可以说一千个程序员就有一千种不同的理解。下面是从我自己工作中所看到的，所听到的，结合自己编码的体会谈一下自己的想法。对代码注释的态度大致有三种误区： 注释很重要，每一行代码都要写注释。 注释可有可无，为了应付公司的编程规范，QA的审查，开始拷贝一些函数头注释，拷过去什么都不改，连原作者名都不改，只为满足代码注释率的要求。 无需注释，代码即注释。 第一个种：新员工热情很高
Python自学教程2：高级程序员怎么写注释
注释是学一门编程语言最简单的语法，实际上，这一片只讲了#号和""""""三引号这两个特别简单的语法。但是真要用起来，光会语法是不够的，编程总是要带入到具体的工作中， 如果没有具体的使用场景，学再多的语法是没什么用的。我还准备了很多学习技巧和面试套路，基本都可以在文本名片九柄获取，顺便三连哦。很多自学 Python 的人，看了很多教程，但最终还是不会用，不敢用，其中的原因就是没有根据实用性学习，总以为知识学得越多越好。
实用简约的JAVA注释标签-高手必备
大家在开发中写JAVA注释谁都会,不会一般写得少或者随便写，其实这是习惯问题,与开发进度无关。养成良好的习惯会觉得写出来的代码很专业，很有成就感 。最近看开源框架里面的JAVA注释。觉得很有意思。做下记录: 通常注释包括以下几个部分: 功能描述,参数,作者,版本,看另一方法 参数：@param 作者: @author Administrator 版本:@version
惊了！20年前的几行代码竟如此牛逼？
最近在知乎上看到了一个话题：世界上有哪些代码量很少，但很牛逼很经典的算法或项目案例？其中有一个回答是雷神之锤3中的快速逆平方根算法，我本以为是电影中雷神3中出现的代码，就特别好奇点进去看了一下，结果真是对应了代码注释中的一句话“what the fuck?”。 越不会越好奇，查过之后才知道这是一款游戏中的部分代码，1999年发布，2005年开源，距离现在已经有20年了，据说这部分代码出现在公共场合时，几乎震住了所有人，也就是下面这几行代码： float Q_rsqrt( float number...
VB

16,554

社区成员

110,527

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章