我想打开mis文件,复制所有数据并写入文本文件.
我的错文件.
文件名 - 1.mis
M3;3395;44;0;1;;20090404;094144;8193;3;0;;;;
M3;3397;155;0;2;;20090404;105941;8193;3;0;;;;
M3;3396;160;0;1;;20090404;100825;8193;3;0;;;;
M3;3398;168;0;2;;20090404;110106;8193;3;0;;;;
Run Code Online (Sandbox Code Playgroud)
等......
以上数据应出现在具有相同文件名(1.txt)的文本文件中.
我试过这段代码.
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "C:\Clients\Converter\Clockings.mis" For Input As #iFileNo
Do While Not EOF(iFileNo)
Input #iFileNo, sFileText
Loop
Close #iFileNo
Open "C:\Clients\Converter\2.txt" For Output As #iFileNo
Do While Not EOF(iFileNo)
Write #iFileNo, sFileText
Loop
Close #iFileNo
Run Code Online (Sandbox Code Playgroud)
1.txt中没有保存任何内容.
为什么当我使用Err.Raise 65536的Err.Number实际上将有5而不是65536的价值?
根据Raise定义:Sub Raise(Number As Long, [Source], [Description], [HelpFile], [HelpContext]).该传递参数Long和Err.Number也Long.
那么为什么我不能使用大于65535的值呢?
Private Sub Command1_Click()
Dim a As Long
On Error GoTo ErrCatch
For a = 0 To 99999
Err.Raise a
DoEvents
Next a
Exit Sub
ErrCatch:
' this is where Err.Number is evaluated
Resume Next
End Sub`
Run Code Online (Sandbox Code Playgroud) 我正在处理开发我的应用程序的一个大问题.它是C#上实现Model-View-Presenter模式的Winforms基础应用程序,但我是这个方法的新手.我到处搜索,但没有找到我的问题的答案.
我需要知道如何使用这种模式来允许winforms之间的通信,以及演示者如何在不将演示者与表单耦合的情况下显示它们.我已经看到了使用Factory模式的方法,但是不明白如何实现它.
任何帮助或指向正确的方向将不胜感激.
我是InnoSetup的新手,因为我正在尝试各种安装程序.
我使用Inno Script Studio和内置向导创建了我的第一个脚本.到现在为止还挺好.现在我想让它检测是否安装了.Net 4.5,如果没有安装它.所以,我浏览了整个网络,并且在这里我遇到了这个解决方案,但是当我将代码复制并粘贴到我的脚本中时,我在编译时遇到以下错误.
Compiling [Code] section
Compiler Error!
Line 54: Column 10: Invalid prototype for 'IsDotNetDetected'
Run Code Online (Sandbox Code Playgroud)
我脚本中的第54行就是这个
function IsDotNetDetected(version: string; service: cardinal): boolean;
Run Code Online (Sandbox Code Playgroud)
有谁知道这个错误意味着什么,为什么我会得到它?
这是我的完整脚本:
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#define MyAppName "AVO Log"
#define MyAppVersion "0.1.0.1"
#define MyAppPublisher "NA"
#define MyAppExeName "AVO Log.exe"
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the …Run Code Online (Sandbox Code Playgroud) Aptana Studio 3是否能够显示与开始和结束标记匹配的垂直线,以便您知道标记是否正确对齐?我发现这在Notepad ++中非常有用,并且想知道这是否是Aptana中的一个选项.
谢谢
我的一个项目有一个值类型/结构,表示视频格式的自定义标识符字符串.在这种情况下,它将包含一个内容类型字符串,但这可能会有所不同.
我已经使用了一个结构体,因此当它传递时它可以是强类型,并对初始字符串值执行一些健全性检查.实际的字符串值可以是任何内容,由外部插件库提供,因此数字enum不适用.
public struct VideoFormat {
private string contentType;
public VideoFormat(string contentType) {
this.contentType = contentType;
}
public string ContentType {
get { return this.contentType; }
}
public override string ToString() {
return this.contentType;
}
// various static methods for implicit conversion to/from strings, and comparisons
}
Run Code Online (Sandbox Code Playgroud)
由于有一些非常常见的格式,我将这些格式暴露为具有默认值的静态只读字段.
public static readonly VideoFormat Unknown = new VideoFormat(string.Empty);
public static readonly VideoFormat JPEG = new VideoFormat("image/jpeg");
public static readonly VideoFormat H264 = new VideoFormat("video/h264");
Run Code Online (Sandbox Code Playgroud)
这似乎适用于大多数情况,除了一个开关块,它表示值必须是常量.有没有什么办法可以直接在开关块中使用这种类型和静态值而无需打开内部成员或.ToString()覆盖?
如果没有使用enum数值或普通字符串常量指定的设计时间,是否有更好的整体方法?
vb6 ×5
c# ×3
.net ×1
aptana ×1
aptana3 ×1
com-interop ×1
file-io ×1
inno-setup ×1
marshalling ×1
mvp ×1
numbers ×1
object-model ×1
textbox ×1
value-type ×1
winforms ×1