https://kanoe.cn/ zh-cn PBlog2 v2.4 https://kanoe.cn/images/logos.gif https://kanoe.cn/ 独木舟 https://kanoe.cn/article/coding/233.htm master@kanoe.cn(独木舟) Fri,17 Feb 2012 13:31:41 +0800 https://kanoe.cn/default.asp?id=233
typedef struct tagPoint
{
double x,y,z;
}Point;

设有结构体：Point plist[100];

文件：file.dat

file.dat中的数据和结构体数组plist中的数据组织方式一致。

现在我们的任务是：

1、将文件file.dat中的数据读到plist中

2、或者将plist中的数据写到文件file.dat中。

读：

FILE *fp = fopen("file.dat","r");

fread(plist,sizeof(Point),100,fp);

fread的返回值为实际读入的结构体Point的元素个数。

写：

   FILE *fp = fopen("file.dat","w");

fwrite(plist,sizeof(Point),100,fp);

fread的返回值为实际写入的结构体Point的元素个数。

简单吧，fread和fwrite的参数完全一样。在实际进行文件读写之前，应该先弄清文件数据的数据结构，这样就可以根据数据结构来设计与文件数据一致的结构体，一次性读入或写入数据。而不需要每次从二进制文件中读写一小块儿数据，从而避免出错，同时也避免多次的循环读写，加快读写速度。
]]> https://kanoe.cn/article/coding/231.htm master@kanoe.cn(独木舟) Sat,27 Aug 2011 03:18:25 +0800 https://kanoe.cn/default.asp?id=231
如果用户熟悉Linux下的sed、awk、grep或vi，那么对正则表达式这一概念肯定不会陌生。由于它可以极大地简化处理字符串时的复杂度，因此现在已经在许多Linux实用工具中得到了应用。千万不要以为正则表达式只是Perl、Python、Bash等脚本语言的专利，作为C语言程序员，用户同样可以在自己的程序中运用正则表达式。

标准的C和C++都不支持正则表达式，但有一些函数库可以辅助C/C++程序员完成这一功能，其中最著名的当数Philip Hazel的Perl-Compatible Regular Expression库，许多Linux发行版本都带有这个函数库。

编译正则表达式

为了提高效率，在将一个字符串与正则表达式进行比较之前，首先要用regcomp()函数对它进行编译，将其转化为regex_t结构：

int regcomp(regex_t *preg, const char *regex, int cflags);



参数regex是一个字符串，它代表将要被编译的正则表达式；参数preg指向一个声明为regex_t的数据结构，用来保存编译结果；参数cflags决定了正则表达式该如何被处理的细节。

如果函数regcomp()执行成功，并且编译结果被正确填充到preg中后，函数将返回0，任何其它的返回结果都代表有某种错误产生。

匹配正则表达式

一旦用regcomp()函数成功地编译了正则表达式，接下来就可以调用regexec()函数完成模式匹配：

int regexec(const  regex_t  *preg,  const  char *string, size_t nmatch,regmatch_t pmatch[], int eflags);
typedef struct {
  regoff_t rm_so;
  regoff_t rm_eo;
} regmatch_t;



参数preg指向编译后的正则表达式，参数string是将要进行匹配的字符串，而参数nmatch和pmatch则用于把匹配结果返回给调用程序，最后一个参数eflags决定了匹配的细节。

在调用函数regexec()进行模式匹配的过程中，可能在字符串string中会有多处与给定的正则表达式相匹配，参数pmatch就是用来保存这些匹配位置的，而参数nmatch则告诉函数regexec()最多可以把多少个匹配结果填充到pmatch数组中。当regexec()函数成功返回时，从string+pmatch[0].rm_so到string+pmatch[0].rm_eo是第一个匹配的字符串，而从string+pmatch[1].rm_so到string+pmatch[1].rm_eo，则是第二个匹配的字符串，依此类推。

释放正则表达式

无论什么时候，当不再需要已经编译过的正则表达式时，都应该调用函数regfree()将其释放，以免产生内存泄漏。

void regfree(regex_t *preg);



函数regfree()不会返回任何结果，它仅接收一个指向regex_t数据类型的指针，这是之前调用regcomp()函数所得到的编译结果。

如果在程序中针对同一个regex_t结构调用了多次regcomp()函数，POSIX标准并没有规定是否每次都必须调用regfree()函数进行释放，但建议每次调用regcomp()函数对正则表达式进行编译后都调用一次regfree()函数，以尽早释放占用的存储空间。

报告错误信息

如果调用函数regcomp()或regexec()得到的是一个非0的返回值，则表明在对正则表达式的处理过程中出现了某种错误，此时可以通过调用函数regerror()得到详细的错误信息。

size_t regerror(int errcode, const regex_t *preg, char *errbuf, size_t errbuf_size);



参数errcode是来自函数regcomp()或regexec()的错误代码，而参数preg则是由函数regcomp()得到的编译结果，其目的是把格式化消息所必须的上下文提供给regerror()函数。在执行函数regerror()时，将按照参数errbuf_size指明的最大字节数，在errbuf缓冲区中填入格式化后的错误信息，同时返回错误信息的长度。

应用正则表达式

最后给出一个具体的实例，介绍如何在C语言程序中处理正则表达式。

#include <stdio.h>;
#include <sys/types.h>;
#include <regex.h>;

/* 取子串的函数 */
static char* substr(const char*str, unsigned start, unsigned end)
{
  unsigned n = end - start;
  static char stbuf[256];
  strncpy(stbuf, str + start, n);
  stbuf[n] = 0;
  return stbuf;
}
/* 主程序 */
int main(int argc, char** argv)
{
  char * pattern;
  int x, z, lno = 0, cflags = 0;
  char ebuf[128], lbuf[256];
  regex_t reg;
  regmatch_t pm[10];
  const size_t nmatch = 10;
  /* 编译正则表达式*/
  pattern = argv[1];
  z = regcomp(®, pattern, cflags);
  if (z != 0){
    regerror(z, ®, ebuf, sizeof(ebuf));
    fprintf(stderr, "%s: pattern '%s' \n", ebuf, pattern);
    return 1;
  }
  /*  逐行处理输入的数据 */
  while(fgets(lbuf, sizeof(lbuf), stdin)) {
    ++lno;
    if ((z = strlen(lbuf)) >; 0 && lbuf[z-1] == '\n')
      lbuf[z - 1] = 0;
    /* 对每一行应用正则表达式进行匹配 */
    z = regexec(®, lbuf, nmatch, pm, 0);
    if (z == REG_NOMATCH) continue;
    else if (z != 0) {
      regerror(z, ®, ebuf, sizeof(ebuf));
      fprintf(stderr, "%s: regcom('%s')\n", ebuf, lbuf);
      return 2;
    }
    /* 输出处理结果 */
    for (x = 0; x < nmatch && pm[x].rm_so != -1; ++ x) {
      if (!x) printf("%04d: %s\n", lno, lbuf);
      printf("  $%d='%s'\n", x, substr(lbuf, pm[x].rm_so, pm[x].rm_eo));
    }
  }
  /* 释放正则表达式  */
  regfree(®);
  return 0;
}



上述程序负责从命令行获取正则表达式，然后将其运用于从标准输入得到的每行数据，并打印出匹配结果。执行下面的命令可以编译并执行该程序：

#  gcc regexp.c -o regexp
#  ./regexp  'regex[a-z]*' < regexp.c
0003: #include <regex.h>;
  $0='regex'
0027:   regex_t reg;
  $0='regex'
0054:     z = regexec(®, lbuf, nmatch, pm, 0);
  $0='regexec'


小结

对那些需要进行复杂数据处理的程序来说，正则表达式无疑是一个非常有用的工具。本文重点在于阐述如何在C语言中利用正则表达式来简化字符串处理，以便在数据处理方面能够获得与Perl语言类似的灵活性。

原文地址：http://www.chinaunix.net/jh/23/303346.html]]> https://kanoe.cn/article/coding/189.htm master@kanoe.cn(独木舟) Tue,22 Dec 2009 15:48:53 +0800 https://kanoe.cn/default.asp?id=189 工作需要，刚想到跟本文一样的思路，顺着思路找到本文，转以留念

是不是经常需要在多台机器上做同样的繁琐操作？

或许open MPI可以帮你的忙。

在所有的节点上，做下面的1—3操作

1，安装openmpi，有三个包需要装：
openmpi
openmpi-libs
openmpi-devel

2，配置无密码ssh登录：
请参考：如何配置无密码SSH

3，在工作目录下编制配置文件(文件名随意)，内容包括所有节点的名称，例如：
#>cat hosts
host1
host2
host3
————————
所有节点上的工作目录必需相同，配置文件名和内容也必需相同，简单的办法是所有节点的工作目录都mount到同一个nfs输出上
————————

在主节点上写程序并编译执行4—8
4，例子程序：
[root@dhcp-beijing-cdc-10-182-120-155 ~]# cat hello.c
#include
#include "mpi.h"

int main(int argc, char *argv[])
{
int nproc;
int iproc;
char proc_name[MPI_MAX_PROCESSOR_NAME];
int nameLength;
MPI_Init(&argc,&argv);
MPI_Comm_size(MPI_COMM_WORLD,&nproc);
MPI_Comm_rank(MPI_COMM_WORLD,&iproc);

MPI_Get_processor_name(proc_name,&nameLength);
printf("Hello World, Iam host %s with rank %d of %d\n", proc_name,iproc,nproc);

MPI_Finalize();

return 0;
}

5，编译这个例子：
mpicc -o hello hello.c

6，拷贝可执行文件hello到所有节点的相同工作目录（如果使用nfs可忽略此步）

7，执行hello
#> mpirun -np 2 hello -hostfiles hosts
(上面的数字2代表在两个节点上运行hello)
此时，是不是已经看到了来自其它节点的问候？

8，当然，你可以用其他命令来替换hello比如：
#> mpirun -np 3 ls -hostfiles hosts
此命令在各节点上执行ls操作，并显示结果在主节点上。

9，发挥你的想象力吧，有1000台机器需要同时做同一件事情　。。。

10，当然了，此文章并不是关于分布式计算的，有兴趣的朋友参考相关文章 ]]> https://kanoe.cn/article/coding/188.htm master@kanoe.cn(独木舟) Tue,15 Dec 2009 21:09:05 +0800 https://kanoe.cn/default.asp?id=188 f77 in your PATH. 错误，初次看很眼熟，没想到是我以前装OpenMPI时就出现过得，几经搜索，又回到熟悉的解决方法：PATH！

--------------------------------------------------------------------------
The Open MPI wrapper compiler was unable to find the specified compiler
f77 in your PATH.

Note that this compiler was either specified at configure time or in
one of several possible environment variables.
--------------------------------------------------------------------------

解决方法：
export PATH=$PATH:/data/soft/pgi714bin/linux86-64/7.1-4/bin

最后测试一下设置成功没：
which cc
which f77
which CC]]> https://kanoe.cn/article/coding/MPPMM5.htm master@kanoe.cn(独木舟) Tue,03 Nov 2009 19:05:30 +0800 https://kanoe.cn/default.asp?id=186 #-----------------------------------------------------------------------------
RUNTIME_SYSTEM = "linux"
MPP_TARGET=$(RUNTIME_SYSTEM)
## edit the following definition for your system
LINUX_MPIHOME = /state/partition1/soft/compiler/ompi/1.3.3/pgcc.pgf90
MFC = $(LINUX_MPIHOME)/bin/mpif90
MCC = $(LINUX_MPIHOME)/bin/mpicc
MLD = $(LINUX_MPIHOME)/bin/mpif90
FCFLAGS =-O3 -mcmodel=medium -fastsse -Munroll -Mcray=pointer -tp barcelona-64 -pc 64 -Mnoframe -byteswapio -DDEC_ALPHA
LDOPTIONS =-O3 -mcmodel=medium -Mcray=pointer -Munroll -tp barcelona-64 -pc 64 -Mnoframe -byteswapio -DDEC_ALPHA
LOCAL_LIBRARIES = -L$(LINUX_MPIHOME)/lib -lmpi
MAKE = make -i -r
AWK = awk
SED = sed
CAT = cat
CUT = cut
EXPAND = expand
M4 = m4
CPP = /lib/cpp -C -P -traditional
CPPFLAGS = -DMPI -Dlinux -DSYSTEM_CALL_OK -DDEC_ALPHA -DMPI2_SUPPORT
CFLAGS = -DMPI -I$(LINUX_MPIHOME)/include -DSGI_IA64 -DMPI2_SUPPORT -DDEC_ALPHA
ARCH_OBJS =  milliclock.o
IWORDSIZE = 4
RWORDSIZE = 4
LWORDSIZE = 4
#-----------------------------------------------------------------------------]]> https://kanoe.cn/article/coding/183.htm master@kanoe.cn(独木舟) Tue,01 Sep 2009 20:15:38 +0800 https://kanoe.cn/default.asp?id=183
手动改变这些文件会耗费很长的时间，特别当它是一件重复性的任务。但是，你可以使用Perl程序来完成。所有的Linux供应商都有这个程序。执行以下操作：

$ perl -pi -e 's|[old_string]|[new_string]|g' [file]

字符串可以是简单的命令或是常规的表达式。如果你要改变目录的位置（例：从/var/spool/mail到/var/spool/messages），你想要改变目录/etc下的每个文件来反映路径变化。执行以下操作：

$ find /etc -type f| xargs perl -pi -e 's|/var/spool/mail|/var/spool/messages|g'

在这个例子上，我们使用搜索和xargs来确保系统只运行常规文件的命令，而不是非常规目录或其它文件类型的命令。这也就运行了/etc目录树，而且会递归的改变所有文件。

由于我们/标识，所以我们必须输入了像/var这样的路径而不是/var。我们也可以在Perl表达式使用分隔符。（除了使用|，你也能够使用/, #,@作为分隔符。）

执行以下操作，从整个文件里移开一个命令

$ perl -pi -e 's|myword||g' file

这就从基本上没有使用任何东西却代替了“myword”.(需要注意的是在第二个和第三个分隔符之间没有空格)。

以这种方式使用Perl的话,当你修改配置文件或其它任何类型的数据的时候，你就会极具创造力。它就是一个自动搜索和代替的功能。
]]> https://kanoe.cn/article/coding/179.htm master@kanoe.cn(独木舟) Fri,17 Jul 2009 10:51:30 +0800 https://kanoe.cn/default.asp?id=179 程序目的:弄清C语言中的变量未赋值时的初始值问题

测试结果:在C语言中,全局变量和静态变量,如果没有赋初值,则默认初始值int,float,char,空指针
分别为0.0.0.'\0',0~~~~~~~除了全局变量和静态变量以外,其它变量如果没有赋初值,则默认初始值为
内存中的垃圾内容,对于垃圾内容不能有任何假设.
这些规则对于数组\结构体和联合体也同样适用
用malloc()和realloc()动态分配的内存也可能存在垃圾内容.因此在使用变量前最好都赋初值.
*/

#include<stdio.h>
#define N 10
int a,b[N];
char c,*m;
void main()
{
static int p,q[N],i;
char e,*n;
printf("%d,%d\n%d,%d\n%d\n",a,c,p,e,n);
for(i=0;i<N;i++)
{
  printf("%d ",q[i]);
}
getchar();
}]]> https://kanoe.cn/article/coding/sscanf.htm master@kanoe.cn(独木舟) Mon,13 Jul 2009 10:12:14 +0800 https://kanoe.cn/default.asp?id=177 　　sscanf() - 从一个字符串中读进与指定格式相符的数据.
　　函数原型:
　　Int sscanf( string str, string fmt, mixed var1, mixed var2 ... );
　　int scanf( const char *format [,argument]... );
　　说明：
　　sscanf与scanf类似，都是用于输入的，只是后者以键盘(stdin)为输入源，前者以固定字符串为输入源。
　　其中的format可以是一个或多个 {%

[width] [{h | l | I64 | L}]type | ' ' | '\t' | '\n' | 非%符号}
　　注：
　　1、 * 亦可用于格式中, (即 %*d 和 %*s) 加了星号 (*) 表示跳过此数据不读入. (也就是不把此数据读入参数中)
　　2、{a|b|c}表示a,b,c中选一，[d],表示可以有d也可以没有d。
　　3、width表示读取宽度。
　　4、{h | l | I64 | L}:参数的size,通常h表示单字节size，I表示2字节 size,L表示4字节size(double例外),l64表示8字节size。
　　5、type :这就很多了，就是%s,%d之类。
　　6、特别的：%*[width] [{h | l | I64 | L}]type 表示满足该条件的被过滤掉，不会向目标参数中写入值
　　支持集合操作：
　　%[a-z] 表示匹配a到z中任意字符，贪婪性(尽可能多的匹配)
　　%[aB'] 匹配a、B、'中一员，贪婪性
　　%[^a] 匹配非a的任意字符，贪婪性

例子：1. 常见用法。
　　char buf[512] = ;
　　sscanf("123456 ", "%s", buf);
　　printf("%s\n", buf);
　　结果为：123456
　　2. 取指定长度的字符串。如在下例中，取最大长度为4字节的字符串。
　　sscanf("123456 ", "%4s", buf);
　　printf("%s\n", buf);
　　结果为：1234
　　3. 取到指定字符为止的字符串。如在下例中，取遇到空格为止字符串。
　　sscanf("123456 abcdedf", "%[^ ]", buf);
　　printf("%s\n", buf);
　　结果为：123456
　　4. 取仅包含指定字符集的字符串。如在下例中，取仅包含1到9和小写字母的字符串。
　　sscanf("123456abcdedfBCDEF", "%[1-9a-z]", buf);
　　printf("%s\n", buf);
　　结果为：123456abcdedf
　　5. 取到指定字符集为止的字符串。如在下例中，取遇到大写字母为止的字符串。
　　sscanf("123456abcdedfBCDEF", "%[^A-Z]", buf);
　　printf("%s\n", buf);
　　结果为：123456abcdedf
　　6、给定一个字符串iios/12DDWDFF@122，获取 / 和 @ 之间的字符串，先将 "iios/"过滤掉，再将非'@'的一串内容送到buf中
　　sscanf("iios/12DDWDFF@122", "%*[^/]/%[^@]", buf);
　　printf("%s\n", buf);
　　结果为：12DDWDFF
　　7、给定一个字符串““hello, world”，仅保留world。（注意：“，”之后有一空格）
　　sscanf(“hello, world”, "%*s%s", buf);
　　printf("%s\n", buf);
　　结果为：world
　　%*s表示第一个匹配到的%s被过滤掉，即hello被过滤了
　　如果没有空格则结果为NULL。
　　sscanf的功能很类似于正则表达式, 但却没有正则表达式强大,所以如果对于比较复杂的字符串处理,建议使用正则表达式.]]> https://kanoe.cn/article/coding/124.htm master@kanoe.cn(独木舟) Mon,09 Feb 2009 14:18:26 +0800 https://kanoe.cn/default.asp?id=124 MsFlexGrid.TextMatrix(3,1)=”Hello”
>> 在MsFlexGrid控件单元格中插入背景图形
Set MsFlexGrid.CellPicture=LoadPicture(“C:\temp\1.bmp”)
>>选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1
>>用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True
>> 添加新的一行
使用AddItem方法,用Tab字符分开不同单元格的内容
dim row as string
row=”AAA”&vbtab&”bbb”
MsFlexFrid1.addItem row
>>怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?
Dim i As Integer
With MSFlexGrid1
.AllowBigSelection = True ’ 设置网格样式
.FillStyle = flexFillRepeat
For i = 0 To .Rows - 1
.Row = i: .Col = .FixedCols
.ColSel = .Cols() - .FixedCols - 1
If i Mod 2 = 0 Then
.CellBackColor = &HC0C0C0 ’ 浅灰
Else
.CellBackColor = vbBlue ’ 兰色
End If
Next i
End With
>> MSFlexGrid控件如何移到最后一行
MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1
>>如何判断msflexgrid有无滚动条
Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As
Long, lpMaxPos As Long) As Long
Public Const SB_HORZ = &H0
Public Const SB_VERT = &H1
Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见
Dim i As Long
VsScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then VsScroll = True
End Function
Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见
Dim i As Long
HeScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then HeScroll = True
End Function
>>程序运行时，想动态增加MSFlexgrid的列数
在第2列后插入一列：
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub
Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub
>> 请教MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n
>>得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行
>> 如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000
将MsFlexGrid控件的内容输出到文本
2004-03-19 14:25:18
'OutDataToText
'将MsFlexGrid控件中显示的内容输出到文本文件
Public Sub OutDataToText(Flex As MSFlexGrid)
Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim strTemp As String
On Error GoTo Ert
Me.MousePointer = 11
On Error Resume Next
DoEvents
Dim FileNum As Integer
FileNum = FreeFile
Open "d:aa.txt" For Output As #FileNum
With Flex
k = .Rows
For i = 0 To k - 1
strTemp = ""
For j = 0 To .Cols - 1
DoEvents
strTemp = strTemp & .TextMatrix(i, j) & ","
Next j
Print #FileNum, Left(strTemp, Len(strTemp) - 1)
Next i
End With
Close #FileNum
Me.MousePointer = 0
MsgBox "导出成功"
Ert:
MsgBox Err.Description
Me.MousePointer = 0
End Sub
增加 MsFlexGrid 的编辑功能
概述
MsFlexGrid 控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能。在按下一个键后，就把TextBox 移动到当前的位置，并激活。在键入回车或移动到其他网格时，就把TextBox 中的内容放到网格中。
实现步骤
1 打开 VB5，开启一个新的工程。
2 在菜单“工程” 中选择 “部件”，在列表中选中 “Microsoft FlexGrid Control ..”
3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。修改MsFlexGrid 控件的名称为 Grid1，
设置Grid1 的行，列为 4，固定行，列为 0。设置 Text1 的 Visiable 为 False， BorderStyle 为
None(0)。
4 在Form1 的代码中增加声明：
Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer
5 增加代码到 Grid_KeyPress 过程：
Private Sub Grid1_KeyPress(KeyAscii As Integer)
' Move the text box to the current grid cell:
Text1.Top = Grid1.CellTop + Grid1.Top
Text1.Left = Grid1.CellLeft + Grid1.Left
' Save the position of the grids Row and Col for later:
gRow = Grid1.Row
gCol = Grid1.Col
' Make text box same size as current grid cell:
Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
' Transfer the grid cell text:
Text1.Text = Grid1.Text
' Show the text box:
Text1.Visible = True
Text1.ZOrder 0 ' 把 Text1 放到最前面！
Text1.SetFocus
' Redirect this KeyPress event to the text box:
If KeyAscii <> ASC_ENTER Then
SendKeys Chr$(KeyAscii)
End If
End Sub
6 增加代码到 Text1_KeyPress 过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
KeyAscii = 0 ' Ignore this KeyPress.
End If
End Sub
7 增加代码到 Text1_LostFocus 过程：
Private Sub Text1_LostFocus()
Dim tmpRow As Integer
Dim tmpCol As Integer
' Save current settings of Grid Row and col. This is needed only if
' the focus is set somewhere else in the Grid.
tmpRow = Grid1.Row
tmpCol = Grid1.Col
' Set Row and Col back to what they were before Text1_LostFocus:
Grid1.Row = gRow
Grid1.Col = gCol
Grid1.Text = Text1.Text ' Transfer text back to grid.
Text1.SelStart = 0 ' Return caret to beginning.
Text1.Visible = False ' Disable text box.
' Return row and Col contents:
Grid1.Row = tmpRow
Grid1.Col = tmpCol
End Sub
8 好了。按 F5 开始测试。您可以自由地在 Grid 中移动，按回车可以开始或结束编辑。
使用MsFlexGrid控件的几个函数

在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的程序
''MsFlexGrid操作函数''合并列
Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal
ColValue As String, ByVal CurrentRow As Long) As Boolean
If StartCol > EndCol or StartCol > GridObj.Cols or CurrentRow > GridObj.Rows Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
MergeCol = False
Exit Function
End If
For I = StartCol To EndCol
GridObj.MergeCol(I) = True
GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue
GridObj.ColAlignment(I) = flexAlignCenterCenter
Next I
GridObj.MergeRow(CurrentRow) = True
MergeCol = True
End Function
''合并行
Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal
RowValue As String, ByVal CurrentCol As Long) As Boolean
If StartRow > EndRow or StartRow > GridObj.Rows or CurrentCol > GridObj.Cols Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
MergeRow = False
Exit Function
End If
For I = StartRow To EndRow
GridObj.MergeRow(I) = True
GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue
GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter
Next I
GridObj.MergeCol(CurrentCol) = True
MergeRow = True
End Function
''转换索引
Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long
If row > GridObj.Rows or row < 0 or col > GridObj.Cols or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
faIndex = -1
Exit Function
End If

faIndex = row * GridObj.Cols + col
End Function
''插入行
Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal
SetValue As String) As Boolean
If row > GridObj.Rows or row < 0 or col > GridObj.Cols or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
SetItem = False
Exit Function
End If
GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue
etItem = True
End Function
''得到单元格值
Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String
If row > GridObj.Rows or row < 0 or col > GridObj.Cols or col < 0 Then
MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title
GetItem = ""
Exit Function
End If
GetItem = GridObj.TextArray(faIndex(GridObj, row, col))
End Function
在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技巧来方便的实现这编辑功能来扩展msflexgrid的应用（在实际应用中这是很常用的功能）。
你只需按下面的做即可轻松实现编辑msflexgrid控件数据的功能
例在窗体上放一文本框txtvalue，和一msflexgrid控件grid
‘文本框控件的keypress事件
private sub txtvalue_keypress(keyascii as integer)
‘放入一些处理过程，如只需输入数字时的处理
dim i
i=1
end sub
private sub txtvalue_change()
grid.text = txtvalue.text
end sub
'在grid的entercell事件中加入下例代码
private sub grid_entercell()
txtvalue.text = grid.text
txtvalue.selstart = 0
txtvalue.sellength = len(txtvalue.text)
end sub
'当用户输入数据时直接调用文本框的keypress事件
private sub grid_keypress(keyascii as integer)
txtvalue_keypress keyascii
end sub
ok,这样一个可编辑的msflexgrid控件就完成了，简单吧!!
原理
当用户点击msflexgrid中的某个cell格要输入数据时,产生entercell事件，在这里我们对文本框进行初始化，输入当前cell格中的内容，并且选中所有文本。当用户要按下按键进行输入时，就直接调用txtvalue的事件，由文本框来处理.处理的结果同grid的当前cell同步，使用户编辑cell格就象使用文本框一样方便。]]> https://kanoe.cn/article/coding/123.htm master@kanoe.cn(独木舟) Fri,06 Feb 2009 20:03:53 +0800 https://kanoe.cn/default.asp?id=123 Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_PAINT = &HF Private Const WM_PRINT = &H317 Private Const PRF_CLIENT = &H4& ' Draw the window's client area. Private Const PRF_CHILDREN = &H10& ' Draw all visible child windows. Private Const PRF_OWNED = &H20& ' Draw all owned windows. Private Sub Command1_Click() Dim wav(2500) As Single Dim drt As Boolean Dim dd(1 To 1152, 1 To 4) As Variant '读取红外波段波长 i = 0 Open "d:\lowe\swavd.txt" For Input As #1 Do While Not EOF(1) i = i + 1 Input #1, wav(i) Loop Close #1 For i = 1 To 1151 dd(i, 1) = wav(i) dd(i, 3) = wav(i) Next i dd(1, 1) = "R" dd(1, 3) = "T" Open App.Path & "\daor.txt" For Input As #1 For i = 2 To 1151 Input #1, dd(1153 - i, 2) Next i Close #1 Open App.Path & "\daot.txt" For Input As #1 For i = 2 To 1151 Input #1, dd(1153 - i, 4) Next i Close #1 If Option1 = True Then drt = drw(dd, 3) Else drt = drw(dd, 30) End If End Sub Private Sub Command3_Click() Dim rv As Long With Picture1 .AutoRedraw = True rv = SendMessage(MSChart1.hwnd, WM_PAINT, .hdc, 0) Picture1.Line (0, 0)-(Picture1.Width - 100, Picture1.Height - 100), vbBlack, B .Picture = .Image .AutoRedraw = False ' Sent the picture to the clipboard. Clipboard.Clear Clipboard.SetData .Image, vbCFBitmap .Visible = True End With ' Save the picture on disk. 'SavePicture Form1.Picture1.Picture, "c:\testpic.bmp" End Sub Private Sub Form_Load() ' Make sure picturebox is same size as the chart. With Picture1 .Height = MSChart1.Height .Width = MSChart1.Width Form1.Width = .Width .Top = 0 .Left = 0 .DrawWidth = 1 End With End Sub Function drw(arrdata() As Variant, bound As Long) As Boolean Dim j As Long Dim maxdata As Long Dim max_div As Long Dim min_div As Long maxdata = bound If maxdata = 3 Then max_div = 4 min_div = 2 Else max_div = 8 min_div = 1 End If MSChart1.ChartData = arrdata '图形不能拖动 MSChart1.AllowSelections = False '使用自定义绘图区比例 MSChart1.Plot.UniformAxis = False '该值指定图表的所有值坐标轴的单位刻度是否一致 MSChart1.Plot.AutoLayout = False '该值决定 Plot 对象是采用人工还是自动的布局方式 '设置绘图区域范围 With MSChart1.Plot.LocationRect .Min.x = -300 .Min.y = -100 .Max.x = MSChart1.Width + 100 .Max.y = MSChart1.Height + 100 End With '设置图形背景颜色 MSChart1.Backdrop.Fill.Brush.Style = VtBrushStyleSolid MSChart1.Backdrop.Fill.Brush.FillColor.Set 255, 255, 255 MSChart1.Backdrop.Frame.Style = VtFrameStyleSingleLine MSChart1.Backdrop.Frame.FrameColor.Set 0, 0, 0 ' 从 scale 转换到 log MSChart1.Plot.Axis(VtChAxisIdX).AxisScale.Type = VtChScaleTypeLogarithmic ' 从 scale 转换到 log 时必须特别指定一个 LogBase。基数可以设为 ' 2 到 200 间的任意值。 MSChart1.Plot.Axis(VtChAxisIdX).AxisScale.LogBase = 10 '设置x轴刻度最大，最小值，主要刻度，次要刻度,刻度线向内 MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = maxdata MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0.3 MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = max_div MSChart1.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = min_div MSChart1.Plot.Axis(VtChAxisIdX).Tick.Style = VtChAxisTickStyleInside MSChart1.Plot.Axis(VtChAxisIdX).AxisTitle = "Wavelengh(μm)" '设置y轴刻度最大，最小值，主要刻度，次要刻度,刻度线向内 MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 100 MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 5 MSChart1.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 4 MSChart1.Plot.Axis(VtChAxisIdY).Tick.Style = VtChAxisTickStyleInside MSChart1.Plot.Axis(VtChAxisIdY).AxisTitle = "R&T(%)" MSChart1.Plot.Axis(VtChAxisIdY).AxisTitle.TextLayout.Orientation = VtOrientationUp MSChart1.Legend.Location.LocationType = VtChLocationTypeRight MSChart1.Legend.Backdrop.Fill.Style = VtFillStyleBrush MSChart1.Legend.Backdrop.Fill.Brush.FillColor.Set 255, 255, 255 MSChart1.Legend.Location.Visible = True Call Command3_Click End Function ]]>