vfp9.0如何判断字符串乱码

VFP的字符串比较比较复杂。比较方法是自左向右逐个比较，若前面字符相同再向后进行比较，找到字符不同处就可决定大小，但是包括三种比较方式，通常的，默认的是按机器码Machine即ASCII码进行比较。

判断是否相等时，既要看是=，还是==，又要看exact的设置，若是=，且exact设为off，则以右方为准，右方字符串结束，比较也就结束。在这种情况下，我们大家=我们的结果为逻辑真，exact设为on，则将字符串短的后面补充空格使与另一字符串等长，再自左向右逐一比较。在这种情况下，我们大家=我们的结果为逻辑假。

空格 回答于 2022-04-06

你可以试着用VFP直接写到EXCEL中，具体请参考下面代码。

myexcel=createobject('excel.application')

&&创建一个对象

myexcel.visible=.t.&&可见

&&bookexcel=myexcel.workbooks.add

bookexcel=myexcel.workbooks.open("C:\Documents and Settings\Administrator\桌面\学习\dd.xls")

&&打开指定文件

nrows=bookexcel.worksheets('sheet1')&&打开工作表

UsedRange =nrows.UsedRange&&返回工作表中可使用的区域，UsedRange表的属性

usedrange.columns.count&&计算共几列

r=usedrange.rows.count&&汇总行

c=usedrange.columns.count&&汇总列

with myexcel.application

.sheets('sheet3').select

.sheets.add&&添加一个工作表

.ActiveSheet.Name = 'ddddd'&&重命名表

endwith

myexcel.Worksheets('sheet1').Activate&&选择表为当前工作表

myexcel.cells(1,1).value='sss'&&1,1处的值为

myexcel.activesheet.columns(2).columnwidth=15&&第2列的列宽设

myexcel.activesheet.rows(2).rowheight=50&&设第2行的行高

myexcel.activesheet.rows(2).insert&&第2行前插入一行

myexcel.activesheet.columns(2).insert&&第2列前插入一列

myexcel.activesheet.Cells(1,1).Font.size=25&&设置1，1的字体大小

myexcel.activesheet.Cells(1,1).Font.name='黑体'&&设置字体

myexcel.activesheet.Cells(1,1).clear&&清除内容

myexcel.activesheet.range('A1:C2').select&&选择区域

myexcel.selection.merge &&选择区域合并单元格

myexcel.activesheet.Columns('A:B').Select&&整列选中

myexcel.Selection.NumberFormatLocal="@" &&设置选中的区域为字符型数据

myexcel.activesheet.rows(1).select

myexcel.Selection.EntireRow.Delete&&删除选中的行

myexcel.Selection.columns(1).Delete&&删除第几的列

myexcel.workbooks.close&&关闭工作区

*myexcel.workbooks.close(.f.)&&关闭工作区不提示保存

myexcel.quit&&excel

********************************************************

*生成一个表并显示可用的sheets

&&oExcel = CREATE("Excel.Application")

&&oExcel.Workbooks.ADD

&&FOR EACH oMyVar IN oExcel.sheets

&&? oMyVar.name

&&NEXT oMyVar

---