小编Pao*_*oni的帖子

我正在阅读C语言程序,并且到目前为止已经理解了所有内容.然而,当我遇到getchar()并且putchar(),我无法理解它们的用途,更具体地说,以下代码的作用.

main()
{
    int c;
    while ((c = getchar()) != EOF)
       putchar(c);
}

我理解main()函数,整数的声明c和while循环.然而我对while循环中的条件感到困惑.这个C代码的输入是什么,输出是什么.

对不起,如果这是一个基本而愚蠢的问题,但我只是在寻找一个简单的解释,然后再继续阅读本书并变得更加困惑.

我正在尝试下载,然后使用Excel中的VBA在Outlook电子邮件中打开Excel电子表格附件.我怎么能够:

1. 从我的Outlook收件箱中的第一封电子邮件(最新电子邮件)下载唯一的附件
2. 将附件保存在具有指定路径的文件中(例如:"C:...")
3. 使用以下命令重命名附件名称:当前日期 + 上一个文件名
4. 将电子邮件保存到其他文件夹中,其路径如"C:..."
5. 将Outlook中的电子邮件标记为"已读"
6. 在Excel中打开 Excel附件

我还希望能够将以下内容保存为分配给各个变量的单个字符串:

• 发件人电子邮件地址
• 接收日期
• 发送日期
• 学科
• 电子邮件的消息

虽然这可能更好地在一个单独的问题中提出/自己寻找它.

我目前的代码来自其他在线论坛,可能不是很有帮助.但是,这里有一些我一直在努力的点点滴滴:

Sub SaveAttachments()
    Dim olFolder As Outlook.MAPIFolder
    Dim att As Outlook.Attachment
    Dim strFilePath As String
    Dim fsSaveFolder As String

    fsSaveFolder = "C:\test\"

    strFilePath = "C:\temp\"

    Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

    For Each msg In olFolder.Items
        While msg.Attachments.Count > 0
            bflag = False
            If Right$(msg.Attachments(1).Filename, 3) = "msg" Then
                bflag = True
                msg.Attachments(1).SaveAsFile strFilePath & strTmpMsg
                Set msg2 …

我正在尝试使用IF子句来确定是否选中了名为"Check Box 1"的复选框,以便在我的程序中进一步使用.

我目前的代码:

Sub Button167_Click()
 If ActiveSheet.Shapes("Check Box 1") = True Then
 Range("Y12").Value = 1
 Else
 Range("Y12").Value = 0
 End If
End Sub

这似乎不起作用,但调试告诉我有一个问题

ActiveSheet.Shapes("Check Box 1")

但是,我知道这段代码有效(即使它有不同的用途):

ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn

编辑:如果需要更多信息,我的复选框(我的页面上有200个)位于sheet1中,名称为"Demande".每个Checkbox都具有相同的格式名称"Check Box ...".

所有帮助将不胜感激.谢谢

使用Ionic框架,我正在尝试创建一组三个按钮作为单选按钮:

如果我点击早餐,我希望午餐和晚餐回到正常(白色)状态,早餐变成蓝色.

使用我当前的代码,我无法使用此功能,虽然我可以让按钮切换颜色,稍微随机(也许我只是不理解ng-class指令).

这是我的HTML代码:

<div class="bar bar-subheader">
 <div class="button-bar">
   <a class="button" ng-class="{'button-positive' : !isActiveB, 'none': isActiveB}" ng-click="active('breakfast')">Breakfast</a>
   <a class="button" ng-class="{'button-positive' : !isActiveL, 'none': isActiveL}" ng-click="active('lunch')">Lunch</a>
   <a class="button" ng-class="{'button-positive' : !isActiveD, 'none': isActiveD}" ng-click="active('dinner')">Dinner</a>
 </div>
</div>

我的JS:

$scope.active = function(meal) {

 switch (meal) {
   case 'breakfast':
     $scope.$broadcast('slideBox.setSlide', 0);
     $scope.isActiveB = $scope.isActiveB;
     $scope.isActiveL = !$scope.isActiveL;
     $scope.isActiveD = !$scope.isActiveD;
     break;
   case 'lunch':
     $scope.$broadcast('slideBox.setSlide', 1);
     $scope.isActiveB = !$scope.isActiveB;
     $scope.isActiveL = $scope.isActiveL;
     $scope.isActiveD = !$scope.isActiveD;
     break;
   case 'dinner':
     $scope.$broadcast('slideBox.setSlide', 2);
     $scope.isActiveB …

在我当前的VBA代码中,我有一个查询,我在其中使用在我的Chr(34)一些变量之间加上引号.

我想知道这有什么替代方案.这是一个简单的问题,我知道,但我没有成功重复这样的引号

" &变量字符串在这里& "

我的代码对于一个人而言是混乱的,对于不熟悉VBA的人来说是不可理解的:

comboService = Chr(34) & Me.Combo8.Value & Chr(34)

此外,这没有奏效:

comboService = """" & Me.Combo8.Value & """"

你能告诉我为什么吗？

提前致谢.

在Access中,我有一个表单,其中有三个文本框.我正在尝试使用以下两者的组合更新名为tbxCombinedName的文本框:

• textbox tbxLastName(人的姓氏)
• textbox tbxFirstName(人名)

我的问题是:我使用什么文本框属性,因此当我在tbxLastName中键入文本时,CombinedName文本框会立即更新,然后保存在表Contacts中.

在微软的网站上,我发现在文本框中输入时的步骤过程如下:

KeyDown→KeyPress→BeforeInsert→Change→KeyUp

我尝试过使用OnChange和OnKeyDown属性,但无济于事.哪个属性与哪些代码相结合,将允许按类型更新操作？

这是我之前写的,但是没有用:

Private Sub tbxLName_change()

Dim lastName As String
Dim nameCode As String

lastName = tbxLName.Value
Debug.Print lastName
nameCode = tbxNameCode.Value
nameCode = lastName
Debug.Print nameCode

End Sub

感谢您的所有帮助.

在NetLogo中将函数参数设置为整​​数

在使用NetLogo在线文档后,我找不到将参数(让我们调用它r)设置为函数声明中的整数的解决方案.

在python中它很简单 WTMC(n, r=25):

但是在NetLogo中,我不知道如何设置r = 25,没有错误.

如何设置我的WTMC [ n r ]功能WTMC [ n r = 25 ]

这样我就可以调用我的函数:show WTMC [ n ],而不需要包含参数r

提前致谢

在我的 Access 数据库中，我有一个名为“Demande”的表。我想读取“Numero de Commande”列中的所有记录并读取该列中最大的数字，以便我可以将该数字用于下一个新记录。

这是我的桌子：

关键索引是针对 Numero de Commande 的。

这是我当前的代码：

 Dim highestInt as Integer
 Dim newNumeroCommande as Integer

 Set currentDatabase = CurrentDb
 Set rstDemande = currentDatabase.OpenRecordset("Demande")

 ' Find the highest integer in the column "Numero de Commande"

 newNumeroCommande = highestInt + 1
 rstDemande.AddNew
 rstDemande("Numero de Commande").Value = newNumeroCommande 
 rstDemande.Update

感谢您的所有帮助。

我正在尝试将名称列表分配给Access VBA中的组合框控件.

我的问题是名称的输出字符串不正确.

这是我的代码:

Private Sub command186_click()
    Dim firstName As String
    Dim lastName As String
    Dim rst As Object
    Dim rowSourceText As String
    Dim fullName As String

    Set rst = CurrentDb.OpenRecordset("Pool_Contact")

    Do While Not rst.EOF
        firstName = rst("FName").Value
        lastName = rst("LName").Value
        fullName = firstName + " " + lastName
        rst.MoveNext
    Loop

    Forms(FrmDaysAvailable).Controls("Combo202").rowSource = fullName
    Debug.Print fullName
End Sub

我知道错误在我的循环内部,其中变量fullName由第二个结果写入.

如何修复此循环以生成一个看起来像fullName,fullName,fullName的字符串...

感谢你的帮助

我正在尝试解析一个 HTML 文件，该文件已在 Automator 中转换为 TXT 文件。

我之前使用 Automator 从网站下载了 HTML 文件，现在我正在努力解析源代码。

最好，我只想获取表格的信息，并且需要对 1800 个不同的 HTML 文件重复此操作。

这是源代码的示例：

</head>
<body>
<div id="header">
    <div class="wrapper">
        <span class="access">
        <div id="fb-root"></div>


    <span class="access">
     Gold Account: <a class="upgrade" title="Account Details" href="http://www.hedge-professionals.com/account-details.html" >Active </a>       Logged in as Edward&nbsp;&nbsp; | &nbsp;&nbsp;<a href="javascript:void(0);" onclick='logout()' class="logout">Sign Out</a>

    </span>
                                    </span>
    </div><!-- /wrapper -->
</div><!-- /header -->

<div id="masthead">
    <div class="wrapper">   
        <a href="http://www.hedge-professionals.com" ><img src="http://www.hedge-professionals.com/images/hedgep_logo_white.png" alt="Hedge Professionals Database" width="333" height="46" class="logo" border="0" /></a>
        <div id="navigation">
            <ul>
<li ><a href='http://www.hedge-professionals.com/dashboard.html' >Dashboard</a></li> …